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IDENTIFICATION 


PRODUCT CODE: AC-F759A-MC 


PRODUCT NAME: CVDRDAO DRV11J DIAG TST PRT2 
DATE CREATED: OCTOBER 1979 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
aa OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
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ABSTRACT 


THE DRV1i=J IS A GENERAL PURPOSE PARALLEL INTERFACE FOR THE 


LSI=11 BUS. IT HAS A BASIC CONFIGURATION OF 64 TRI“STATE IN/OUT 


LINES DIVIDED INTO FOUR GROUPS OF 16 BIT WORDS. 


THERE ARE TWO 4K DIAGNOSTICS FOR THE DRV11-J OPTION. 
THE DRVi1=J DIAGNOSTIC TEST PART 1 OF 2 CONTAINS A 


SERIES OF TESTS WITHOUT DRV11J INTERRUPTS DESIGNED TO TEST ALL 
LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE LOOPBACK 


CABLE INSERTED INTO THE DRV11-J I/0 CONNECTORS. 
THE DRV11-J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 


WITH DRV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DATA PATHS 


MADE ACCESSIBLE WITH THE LOOPBACK CASLE INSERTED INTO THE I/0 
CONNECTORS. 


THE DRV11-J IS CONTAINED ON A DOUBLE HEIGHT MODULE. 
THE MODULE CONTAINS TWO sO. PIN CONNECTORS FOR INTERFACING 
TO EXTERNAL USER DEVICES. 


FOR DIAGNOSTIC TESTING, THE DRV11-J CABLE(BCO5W-02) MUST 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE 50 PIN CONNECTORS. 


REQUIREMENTS 


EQUIPMENT 


1. PDP11/03,11/23 COMPUTER OR LSJ-11 PROCESSOR 
WITH A MINIMUM OF 4K MEMORY. 


2. SERIAL LINE INTERFACE AND CONSOLE TERMINAL 
3. DRV11-J OPTION WITH A BCOSW-02 CABLE 
STORAGE 

THE PROGRAM USES THE LOWER 4k OF MEMORY. 
LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE 
BINARY FORMATTED PAPERTAPES OR XXDP MEDIA 
(FILES WITH .BIC OR .BIN EXTENSIONS ONLY). 


STARTING PROCEDURE 


1. MAKE SURE THE DRV11-J CABLE IS INSERTED WITH 1/2 A TWIST 
ON THE I/O CONNECTORS OF THE DRV11-J OPTION. 
THIS WILL CONNECT PORT A TO PORT C AND CONNECT 
PORT B TO PORT D. 


2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFAULT 
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VALUES DEFINED IN SECTION 7.1. IF NOT,CHANGE 
LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/* ODT COMMAND. 


3. THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. STARTING 
AT 200(200G OR .R CVDRDA UNDER XXDP+),THE PROGRAM 
INITIALIZES ITSELF ,PRINTS ITS ID(FIRST TIME ONLY) AND 
THEN PRINTS THAT THE DRV11-J CABLE IS REQUIRED(FIRST TIME 
ONLY) AND THEN PRINTS: SWR=XXXXXX NEW= | 


WHERE XXXXXM REPRESENTS THE CURRENT VALUE OF THE SOF TWARE 
SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 
REGISTER THEN JUST HIT CARRIAGE RETURN. 

IF CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 
FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITCH REGISTER OPTIONS. 


2.0 SOFTWARE SWITCH REGISTER 





THE PROGRAM SWITCH DEFAULT MODE IS SwWR = Q00000 
IF USING A VIDEO TERMINAL ,BIT 15 = 1(HALT ON ERROR), 
MAY BE HELPFUL IN KEEPING THE ERROR ON THE SCREEN. 


SWITCH OC TAL FUNCTION 

Sw15=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

Sw 3=1 020000 INHIBIT ERROR TYPEOUTS 

SW12=1 010000 INHIBIT ILLEGAL VECTOR 
RETURN ROUTINES 

SwWw11=1 004000 INHIBIT ITERATIONS 

SWwO9=1 001000 LOOP ON ERROR 

SWO8=" 0004xx LOOP ON TEST IN SWR <7=0> 


* SwW1i2 EXPLANATION 


SW12 = 1 WILL STORE THE REGULAR TRAP (PC+2,HALT) 

IN LOCATIONS 204-1774 FOR THE VECTOR TESTING. ON 

ILLEGAL VECTOR ERRORS, THIS WILL AID THE USER TO 
DETERMINE THE LOCATION OF THE ILLEGAL VECTOR. 

THE LOOPING CAPABILITIES THAT ARE NORMALLY PROVIDED 

By ILLEGAL VECTOR SERVICE ROUTINES eo SW12=0 WILL 

NO LONGER BE AVAILABLE WHEN SWi2 = 

IF USING SW12=1 TO TRACK DOWN THE ILLEGAL VECTOR, THE 

USER SHOULD RESTART AT ADDRESS 200 WITH SwW12=0 TO 

OBTAIN LOOPING CAPABILITIES AFTER ERROR OCCURS. 

VECTOR AREA 0-200 WILL ALWAYS HAVE ILLEGAL VECTOR ROUTINES 
WHEN VECTOR TESTING (0-200) IN ORDER TO PRESERVE PROGRAM. 
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er CONTROL 


* WARNING: 


PLEASE USE “CTRL AND G’* KEYS AND WAIT FOR THE 

"CTRL G'’ TO BE ECHOED BEFORE ATTEMPTING TO HALT THE 
CPU OR TO STOP TESTING OR THE PROGRAM MAY NOT BE 

RESTARTABLE. 

PROGRAM RELOCATION FOR LOCATIONS 0-200 TAKES PLACE 

DURING THE VECTOR TESTING OF 0-200. THE NORMAL 

CONTENTS OF O=200 MAY NOT GET RESTORED IF THE CPU 

IS HALTED AND RELOAD OF THE PROGRAM MAY BE NECESSARY. 


1, THE SOFTWARE SWITCH REGISTER ‘SWREG* (LOC. 176) CAN BE 
CHANGFD BY USING THE ODT FACILITIES. 


2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 


3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
FRROR CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 


SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 
"P* (CONTINUE). 


6.0 ERROR REPORTING 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


6.2  - ERROR DATA 


¢.2.1 ERROR TITLE TYPE A 
1. REG READ/WRITE ER 
c. IRR REG ER 
5. ACR REG ER 


) 
| 
6.1 ERROR COMMENT 
4. IMR REG ER 





5. ISR REG ER . ; PAGE: 0006 
6. CHIP STAT ER 

7. MULTIPLE INTERRUPTS RECEIVED 

8. INTERRUPT TEST ERROR 


ERRPC TSTNUM BUSADR VAM ADDR EXPCT RCyD 
1OO000K 000000 000000 000004 000000 JO00000  J00000K 


ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 

TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11J BUS REG ADDRESS OF CONCERNED OPERATION 

VAM VALUE STORED INTO VECTOR ADDRESS MEMORY 
INDICATING BYTE COUNT AND LEVEL. 

ADDR VECTOR ADDRESS 

EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 


6.2.2 Pn, TITLE TYPE B 
ILLEGAL INTERRUPT RECEIVED 


ERRPC TSTNUM BUSADR- VAM ADDR 
oe 0.0 © Gime. 0.0.0.0.0 Game. 0.0.0.0.¢ Game 0.0.0.0.0 Gime 0.0.0.0. 0, . 


ERRPC ADDRESS WHERE THE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 
BUSADR DRV11J BUS ADDRESS 
VAM VALUE OF VECTOR ADDRESS MEMORY 

AT TIME OF ILLEGAL INTERRUPT. 
ADDR VECTOR ADDRESS 


6.c.5 ERROR TITLE TYPE C 


1. ILLEGAL VECTOR MEM ADDR ER 
ERRPC TSTNUM TESTPC BUSADR- VAM ADDR 
YOOX OOOOKK KKK KKK XK KKK = KKKKAK 


ERRPC ADDRESS WHERE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE THE ERROR OCCURED 
TESTPC ADDRESS OF TEST THAT WAS RUNNING 

WHEN DRV11J VECTORED TO THE WRONG ADDRESS. 
BUSADR BUS ADDRESS OF CONCERNED OPERATION 
VAM VALUE OF VECTOR ADDRESS MEMORY 

BYTE COUNT AND LEVEL. 
ADDR CORRECT VECTOR ADDRESS 


.¢-4 ERROR TYPi D 


THIS ERROR IS ONLY FOUND WHEN’ RUNNING THE VECTOR ADDRESS 
UNI GUENE Ss TESTS. THE VECTOR MEMORY IS PRESET TO PERFORM 
64 INTERRUPTS. INTERRUPT SERVICE ROUTINES ARE STORED FROM 
VECTORS $00 tO 674. ‘THE ROUTINES WILL STORE THE VALUE OF 
THE »VECTOR ADDRESS WHERE THEY CAME FROM .IN A BUFFER 
TO COMPARE AFTER ALL INTERRUPTS TAKE PLACE. THE BUFFER 
SHOULD! THEN HAVE ADDRESS VALUES IN CONSECUTIVE 
ORDER STARTING, WITH VECTOR VALUE 300 AND ENDING WITH 


re 
N 


if 








ia9 


VECTOR VALUE 674, 


f 


; “VECT. ADDR MEM ER 
ERRPC. TSTNUM BUSADR EXPCT  RCVD 
AX KIN KKK XKKKKK MMMM XMKKK 


ERRPC ' ADDRESS WHERE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE ERROR OCCURRED 
SADR STARTUP BUS ADDRESS BEFORE VECTOR UNIQUENESS 
EXPCT , THIS IS THE EXPECTED VECTOR ADDRESS 
RCVD VECTOR ADDRESS VALUE STORED IN BUFFER 
/ 
MISCELLANEOUS 


stnecmrmmrnmeaninn i 
df 
DRV11-J BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘S$BASE'(ADDR:2244) iF BASE BUS ADDRESS IS 
NOT 164160. 


KXDP/APT NOTES 
THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 
POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE DRV11J INTERFACE TESTING 


THIS PROGRAM DOES NOT ‘'‘AUTO-SIZE‘* THE NUMBER OF DRV11J°S? CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 4 DRV1JJ INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THIS IS ACCOMPLISHED 
8Y THE USER SETTING UP LOCATION ‘SDEVM'’ (ADDR:2246) WITH A 
BIT MAP INDICATING WHAT INTERFACES ARE TO BE TESTED. . 
I.E. BITO= 1 SAYS TEST 1ST DRV11J, 

BIT1= 1 SAYS TEST 1ST DRV11J 

BIT2= 1 SAYS TEST 2ND DRV11J 

BIT3= 1 SAYS TEST 3RD DRV11J 


1ST UNIT = STARTING CSRA 164160 S$DEVM = 1 
2ND UNIT = STARTING CSRA 164140 S$DEVM = 3 
3RD UNIT = STARTING CSRA 164720 $DEVM = 7 
4TH UNIT = STARTING CSRA 164100 S$DEVM = 17 


RESTRICTIONS 

ALWAYS TYPE “‘CTRL G’* AND WAIT FOR ECHO OF CHARACTERS 
BEFORE HALTING THE CPU OTHERWISE PORTIONS OF THE 
PROGRAM MAY NOT GET RESTORED. FOR MORE INFORMATION 
REFER TO SECTION 5.2. 


EXECUTION TIME 

EXECUTION TIME WILL BE LESS THAN 0 at 
PER DRV11J UNIT CONNECTED. AN ‘END PASS*’ 
MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON 
ALL SELECTED UNITS. 
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9.2 


PROGRAM TEST DESCRIPTIONS 


GENERAL 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11J OPTION. 
TESTING IS ACCOMPLISHED WITH THE AID OF THE 

DRV11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 


.EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 


REFERENCES ARE MADE IN THE LISTING TO THE TWO INTERRUPT 
CONTROL CHIPS USED ON THE DRV1iJ AS GROUP1 AND GROUP2. 


GRQUP1 CHIP CSRA = CONTROL FOR GROUP 1 
: CSRB = DATA FOR GROUP1 
GROUP2 CHIP CSRC = CONTROL FOR GROUP2 

CSRD = DATA FOR GROUP2 


TEST 7 = TEST CHIP INTERRUPT,GROUP1,GROUP2 


THIS TEST WILL CHECK THE ABILITY OF EACH INTERRUPT 
CONTROL CHIP TO INTERRUPT TO COMMON VECTOR 300. 
THIS TEST WILL ALSO CLEAR THE HIGHEST PRIORITY 

fam pt WITH TEST VARIATIONS OF IRR AND 


TEST 2 = TEST ACR/ISR INTERRUPT,GROUP 1,GROUP 2 


THIS TEST WILL TEST THE ABILITY OF BOTH GROUPS 

TO INTERRUPT TO COMMON VECTOR 300 AND THE ABILITY 

OF THE ACR(AUTOCLEAR REGISTER TO CLEAR THE ISR 

AFTER BEING SET AND MASKED BY COMBINATIONS OF IRR BITS 


AND iMR BITS. 


TEST 3 = TEST VECTOR ADDR MEM,LEV 0-7,BY0-3, (204-1774) ,GRPS 1,2 


THIS TEST WILL_CHECK BOTH GROUPS.ONE AT A TIME.TO VECTOR 
FROM ADDRESS 204 TO ADDRESS 1774 FOR LEVELS 0-7 AN 

FOR BYTE COUNTS 1-4.THE BYTE COUNT NUMBER WILL INDICATE 
THE NUMBER OF INTERRUPTS AT A GIVEN ADDRESS. 

THE IRR. IMR AND ACR REGISTERS WILL ALL BE EXERCISED 

AND CHECKED TO INSURE PROPER VECTORING. 


TEST 4 = TEST VECTOR ADDR MEM,LEV 0-7,BY0-3,(0-200) ,GRPS 1,2 


THIS TEST WILL CHECK BOTH GROUPS.ONE AT A TIME, TO VECTOR 
FROM ADDRESS 0-200 FOR LEVELS 0-7 AND FOR BYTE COUNTS 1-4. 
TESTS ARE DONE TO JNSURE aT INTERRUPTS ONLY TAKE PLACE 
WHEN EVERYTHING IS READY. THE CHIP BEING ARMED. INTERRUPT 
ENABLE IS SET AND THE PROPER JMR AND IRR BITS ARE SET. 
AFTER THE INTERRUPTS CHECK TO INSURE THAT THE INTERRUPTS 
GENERATED MATCH THE BYTE COUNT AND THAT THE PROPER 


0 
Ww 


9.6 


10.0 


ISR BITS WERE SET AND THE PROPER IRR BITS WERE CLEARED. | 


TEST 5 = TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GROUPS 1,2 


THIS TEST WILL CHECK THE FIXED PRIORITY OF THE TWO 
INTERRUPT CONTROL CHIPS AS WELL AS THE ADDRESSING 
CAPABILITY OF THE VECTOR ADDRESS MEMORY. 

THE AUTOCLEAR REGISTER(ACR) IS USED TO CLEAR OUT THE 

ISR BITS AFTER 4 INTERRUPTS PER LEVEL HAS TAKEN PLACE. 
CLEARING THE ISR REGISTER WILL THEN ALLOW THE NEXT LEVEL 
OF PRIORITY TO INITIATE 4 INTERRUPTS. 

THE VECTOR MEMORY IS PRESET TO PERFORM 64 UNIQUE INTERRUPTS. 
INTERRUPT SERVICE ROUTINES ARE STORED FROM VECTORS 
300-674. EACH INTERRUPT SERVICE ROUTINE UPON INTERRUPT 
ENTRY WiLL STORE THE ADDRESS OF ITS VECTOR 

IN A BUFFER FOR A COMPARE AFTER 64 INTERRUPTS TAKE PLACE. 
THE BUFFER SHOULD THEN HAVE ADDRESS VALUES IN CONSECUTIVE 
ORDER STARTING WITH VECTOR VALUE 300 AND ENDING WITH 
VECTOR VALUE 674. 


TEST 6 = 4a VECTOR ADDRESS UNIQUENESS,ROTATING PRIORITY 
OR BOTH GROUPS 1,2 


THIS TEST WILL CHECK THE ROTATING PRIORITY OF EACH 
OF THE TWO INTERRUPT CONTROL CHIPS AS WELL AS THE ADDRESSING 
CAPABILITY OF THE VECTOR ADDRESS MEMORY. 
THE VECTOR ADDRESS MEMORY IS PRESET FOR 64 UNIQUE INTERRUPTS. 
INTERRUPT SERVICE ROUTINES ARE STORED FROM VECTORS 300-674. 
ALL IRR BITS ARE SET AND ALL IMR BITS ARE CLEARED. 
AFTER THE FIRST FOUR INTERRUPTS FROM IRRO TAKES PLACE, 
THE ISRO BIT WILL SET AND IRRO BIT WILL CLEAR. 
TO PROVE ROTATION OF PRIORITY,THE ISRO BIT IS CLEARED 
AND THE IRRO BIT IS SET AGAIN IN ORDER TO PROVE THAT 
IRR1 WILL NOW BE CONSIDERED THE HIGHEST PRIORITY AND 
IRRO THE LOWEST PRIORITY. THIS FLOW IS REPEATED FOR 
ALL LEVELS OF GROUP 1(0-7). THEN GROUP 2 IS TESTED 
IN THE SAME MANNER FOR LEVELS 0-7. EACH INTERRUPT 
SERVICE ROUTINE UPON ACCESS FROM AN INTERRUPT WILL STORE 
THE ADDRESS OF THE VECTOR WHERE THE ROUTINE RESIDES IN 
A BUFFER. AFTER ALL 64 INTERRUPTS TAKE PLACE(4 AT A TIME 
FOR EACH LEVEL) THE BUFFER WILL BE CHECKED FOR CONSECUTIVE 
VECTOR VALUES OF 300-674. THIS WILL INSURE THAT PROPER 
ye ~epmeciamman AND ROTATION OF PRIORITIES WAS 

L : 
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0011 
TITLE CVDRD ory) DIAG Ma shes 
: #COPYRIGH } 
> *DIGITAL 4 of tnt ICORP." 
;#MAYNARD, MASS. 01754 1 j f ( 
> 
: «PROGRAM BY bck pe HEAVE', | 
se 
> THIS PR SSEn LED YSING THe PPPs 
; *PACKAGE OGRAM WAS “ii Pak -(3), 1 
its 
$TN=1 ny 
$SWR=160000 : ;HALT ON ERROR, Loop ON 
$SWR=165400 , 
$TN=1 uy 
. SBTTL OPERATIONAL WITCH serrings 
te SWITCH iuse) > | 
;* coe tee en weceeoe -— woabpaag 
ze 15 HALT ON ER % 
:* 14 LOOP ATEST , 
:* 13 INHIBIT) ERROR' iVFe 
:* 17 NHIBI 1), TTERATI | 
rs °) Ae 
g LOOP ON’ TEST J Tl 
* SBTTL BASIC DEF INI TIONS , 4 
;*INITIAL_ ADDRESS OF THE STACI ‘POINTER hay 
STACK K= 1100 1 4 NIT 
-EQUIV EMT,ERROR ; BASIC DEF I TION . 
“EQUIV [OT.SCOPE ; :BASIC 2 FINITION 
; *MISCELLANEOUS DEF INIT! ONS wee! 
HT= 11 : CODE OF ZN 
LF= 12 : CODE FOR U1 re D. 
CR= g 
CRLF= 200 CDE /FOR tA AGE 7RETURW-LINE 
PS= 177776 : =PRO ESSOR |S RATUS (HOR 
.EQUIV PS.PSW | 1 f-ba 
STKLMT= 177774 » STACK LIMLT i SER 
PIRQ= 177772 ::PROGRAM INTERRUPT gad 
DSWR= 177570 se rene ee TER, ‘0 
DDISP= 177570 : :HARDWAR 5 PSPUAE ER) 
:*GENERAL PURPOSE REGISTER DEFINITIONS wh y, 10 Beal 
RO= 20 3; ; GENERAL REGISTER | i" ta yi IF 
Ri=c =ss8 7 GENERAL IREGESTER /4.) INT 
Re= Re ;;GENERAL REGISTER oj; 
R3= %3 : : GENERAL GIST RiP fay, 
R4= 14 ; GENERAL ‘REGISTER +)’ 
R5= x5 7; GENERAL, REGISTER , aie | q 
R6= %6 ;;GENERAL REGIS ey ' | 
R7= 47 ::GENERAL REG] TE vy >), 
SP= 26 : : STACK NTER A | j | : iP , 
PC= 47 ; :PROGRAM C Wh yy 
+) J , ; fe ’ 4 ) j 
;*PRIORITY LEVEL DEFINITIONS ls ify bi wy) poe 
lf i j i * 
Li 
yeh. i | i) i th 
I / by b y ' Mf, i 
j ay (a ) ie J 
| fp¥ Endy) 
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LEVEL 
® PRIORITY LEVEL 
;z;PRIORITY LEVEL 


;*' "SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 : 


PRO= 0 
PR1= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PR5= 240 
PR6= 300 
PR7= 340 
WI 
SW14= 40000 
SW13= 20000 
SWi2= 10000 
SW11= 000 
SW10= 2000 
SWwO9= 1060 
SWwO8= 400 
SWO7= 200 
SWO6= 100 
SWO5= 40 
SWO4= 20 
SwO3= 10 
SWO2= 4 
SWO1= 2 
SwOO= 1 
-EQUIV SWO9,SW9 
-EQUIV SwWO08,SW8 
-EQUIV SWO7,SW7 
EQUIV . 
-EQUIV SWO5,SW5 
-EQUIV SWO04,S 
-EQUIV SWO3,SW5 
EQUIV Sw02,SW2 
-EQUIV SWO1,SW1 
EQUIV SwWw00,SWO 
IT1 100000 
BIT14= 40000 
BIT13= 20000 
BIT12= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BIT06= 100 
BITO5= 40 
IT04= 20 
BITO3= 10 
BITO2= 4 
BITOI= 2 
ITO00= 1 
EQUIV BITO9,BIT9 
EQUIV BIT08,BIT8 


NOAUS WHO 
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BASIC 


TPVEC= 
PIRQVE 
ABASE= 
ADE VM= 


; CHIP 
CIRMR= 


DEF INITIONS 


BIT00,BITO 


64 
C=240 
alias 


oe SUMMARY 
= 30 


N 1 
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C "'CPU'’ TRAP VECTOR ADDRESSES 


3: TIME OUT AND OTHER ERRORS 

ee A AND ILLEGAL INSTRUCTIONS 
3; TRACE TRAP 

; ;BREAKPOINT TRAP (BPT) 

3: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
7z;POWER FAIL 

3; EMULATOR TRAP (EMT) **ERROR** 
::""TRAP’’ TRAP 

7: TTY KEYBOARD VECTOR 

sz: TTY PRINTER VECTOR 

3zPROGRAM INTERRUPT REQUEST VECTOR 
;BASE ADDRESS 

:DEFAULT TO ONE DRV‘1J 


;CLEAR IRR AND IMR 
;CLEAR SINGLE IRR AND IMR BIT 


sCLEAR IMR 

;CLEAR SINGLE IMR BIT 
:SET ALL IMR BITS 
;SET SINGLE IMR BITS 


:CLEAR IRR 

“CLEAR SINGLE IRR BITS 

“SET ALL IRR BITS 

=SET SINGLE IRR BITS 

: CLEAR HIGHEST PRIORITY ISR BIT 
“CLEAR SINGLE ISR BIT 


;LOAD MODE BITS MO-M4 
;LOAD MODE BITS M5-M7 


:CHIP MODE BIT PRESELECTION 
MISR= 2 


:CHIP 


WRITE PRESELECTION 


0013 
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CVDRDA.P11 21-OCT-79 13:19 BASIC DEFINITIONS 
169 000300 PACR= 300 ;PRESELECT AUTO CLEAR REG. FOR WRITING 
170 000260 PIMR= 260 ;PRESELECT IMR REG. FOR WRITING 
7 000 340 PVMA= 340 ;PRESELECT VECTOR MEMORY ADDRESS 
Th, .SBTTL TRAP CATCHER , 
4 
175 000000 .=0 
176 . ;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘',+2,HALT"’ 
177 ;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
178 >*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
179 000 | 7% 2174 
180 000174 Q00000vU DISPREG: .WORD Q ;sSOFTWARE DISPLAY REGISTER 
181 000176 000000 SWREG: -WORD 0 ;; SOFTWARE SWITCH REGISTER 
182 ~SBTTL “STARTING ADDRESS(ES) 
ad @ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


100 .=100 
185 0001900 000104 000217 9000002 -WORD 104,200,2 ;IF ‘B EVENT ON Q BUS IS CONNECTED 
; IGNORE IT°S INTERRUPT = JUST DO A RTI 


CVDRDA DRV11J DIAG TST ak 96 


CVDRDA.P11 


187 
189 


SBR 


ce cD ed ae ced aed ald ad 
Ye) 000 
SLRARANS 


199 


000046 
000052 


000024 


21-0CT-79 


13:1 


MACY11 30A(1052) 
ACT11 HOO 


ee 


. «€ 
‘peste de 13:38 PAGE 6 PAGE: 0015 
K 


.SBTTL ACT11 HOOKS 


5 AAA ARRERAAAAARARAEAKRERAAAAARAARARARAERAARAAATRAAAAERAAKRAEEA ES 


;HOOKS REQUIRED BY ACT11 


;SAVE PC 
:31)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 


0 ;;2)SET LOC.52 TO ZERO 
;: RESTORE PC 


;LONGEST TEST TIME 
31ST PASS RUN TIME 
;ADDiTIONAL RUN TIME 


.SBTTL APT PARAMETER BLOCK 


° SAAR REAR EAKERAKERAKRKEKAKEKEREAAERR EERE RAER ERE RRERRREKE RK © 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


* LRA RSARARAARAASAASASASLESAAASAARARARARARARRRAARRARRRARARARA RAR SARS A SS | 


;sSAVE CURRENT LOCATION 

;zSET POWER FAIL.TO POINT TO START OF PROGRAM 
;3FOR APT START UP 

:sPOINT TO APT INDIRECT ADDRESS PNIR. 

sPOINT TO APT HEADER BLOCK 

;sRESET LOCATION COUNTER 


term ADT PARAMETER GLOCK AS REFINED Im TE APT<POR1s biaceencT IC 


7 SET 


UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 
SHIBTS: 
SMBADR: 


$TSTM: 
SPASTM: 
SUNITM: . 


0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL :: ADDRESS OF APT MAILBOX (BITS 0-15) 

12. ::RUN TIM OF LONGEST TEST 

30. : ¢RUN TIME IN SECS. OF 1S7.PASS ON 1 UNIT (QUICK VERIFY) 

30. DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SE TEND-SMAIL/ 2 :: LENGTH MAILBOX-E TABLE (WORDS) 
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COMMON T 


. SBITL 


21-0CT=79 
AGS 


COMMON TAGS 


5 fF TAAAAARAAARAARAAAAAARARARAAAAAARAAAHAARAARIAARARAARAARAAARRARARANAAS 


>*THIS TABLE CONTAIWWS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM, 


OOOO VODOOO|NO “DWOOO0O0O 


$ 


DDISP 


Q 
e 
12 
0 


/?/ 
<15> 
<12> 


D 2 
13:38 PAGE 7 


>; START OF COMMON TAGS 


;; CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

7; CONTAINS SUBTEST ITERATION COUNT 
3; CONTAINS SCOPE LOOP ADDRESS 

:; CONTAINS SCOPE RETURN FOR ERRORS 
;; CONTAINS TOTAL ERRORS DETECTED 


Se ST 

;; CONTAINS PC OF LAST ERROR INSTRUCTION 
;; CONTAINS ADDRESS OF ‘ GOOD" DATA 
;;CONTAINS ADDRESS OF ‘BAD* DATA 

; ¢ CONTAINS ‘GOOD DATA 

;;CONTAINS "BAD" DATA 

;;RESERVED--NOT TO BE USED 


; ;AUTOMATIC MODE INDICATOR 
7; INTERRUPT MODE INDICATOR 


; ;ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
:: TTY KBD STATUS 
:: TTY KBD BUFFER 
:: TTY PRINTER STATUS REG. ADDRESS 
: TTY PRINTER BUFFER REG. ADDRESS 
>; CONTAINS NULL CHARACTER FOR FIiL 
>: CONTAINS # OF FILLER CHARACTERS. REQUIRED 
el FILL CHARS. AFTER A ‘LINE FEED’ 
:" "TERMINAL AVAILABLE’’ FLAG (BI T<07>=0=YES) 
“MAX, NUMBER OF ITERATIONS 
«ESCAPE ON ERROR ADDRESS 
bo ea iAee MARK 
; CARRIAGE RETURN 
ee L INE FEED 


wee PRR RRRRRRRRRRRRRRARARARRRRRRRRARRRRRRRRRA RRR RRR RRR RRS RR RRR SS SE | 


APT MAILBOX-ETABLE 


Wee eee RRRRRRRRRSRRRARARRRR RRR RRR RRR RRR RRA RRR RRR RRR RRR ARR RRR S SDSS S| 


.=2100 
SCMTAG: 

. WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: . WORD 
SLPADR: .WORD 
SLPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
SGDADR: .WORD 
SBDADR: .WORD 
SGDDAT: .WORD 
SBDDAT: .WORD 

. WORD 

. WORD 
SAUTOB: .BYTE 
SINTAG: .BYTE 

. WORD 
Swe: . WORD 
DISPLAY: .WOR 
STKS: 177560 
STKB: 177562 
$TPS: 177564 
STPB: 177586 

Lis BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
STIMES: O 
SE SCAPE :0 
SQUES: .ASCI] 
SCRLF ASCII 
$LF: eASCIZ 
. SBTTL 
EVEN 
IL: 

SMSGTY: .WORD 
SFATAL: .WORD 
STESTN: .WORD 
SPASS: .WORD 
SDEVCT: .WORD 
SUNIT: WORD 
SMSGAD: .WORD 
SMSGLG: .WORD 


AMSGLG 


7;APT MAILBOX 
: 3MESSAGE TYPE CODE 


; MESSAGE ADDRESS 
> MESSAGE LENGTH 


PAGE : 


0016 


2 
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CVDRDA.P11 21=0CT=79 13:1 APT MA]LSBO0X-E TABLE 
279 002210 SE TABLE: : APT ENVIRONMENT TABLE 
280 002210 000 SENV: BYTE AENV > ;sENVIRONMENT BYTE 
281 002211 000 SENVM: .BYTE AENVM  ;;: ENVIRONMENT MODE BITS 
282 002212 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
283 2274 900000 SUSWR: .WORD AUSWR >; USER SWI TCHES 
284 002216 000000 $CPUOP: .wORD ACPUOP ::CPU TYPE, OPT 1ONs 
285 :* BiTs 15- 115 CPU TYPE ° | 
286 8 11/04=01, 11/0502, 1/20=03, 11/40=06,11/45=05 
287 :e 11/70= 06. PDQ-07, 210 
288 :* BIT 10=REAL TIME CLOCK é 
289 ;* BIT 9=FLOATING POINT PROCESSOR 
290 -* &iT 8=MEMORY MANAGEMENT ~ $5 
291 002220 000 $MAMS1: .BYTE  AMAMS1 :341GH ADDRESS, M. S. #BYTE ere. 
292 002221 000 $MTYP1: .BYTE AMTYP1 ::MEM, TYPE BLKA1 /. 
293 :e MEM. TYPE BYTE -- (HIGH BYTE) 
294 :* 900 NSEC CORE=001 
295 :* 300 NSEC BIPOLAR=002 
296 :* 500 NSEC MOS=003 
297 002222 000000 $MADR1: .WORD AMADR1 ::HIGH ADDRESS, BLKA1 
298 :* MEM.LAST ADDR.=3 BYTES. THIS WORD AND LOw OF ‘'TYPE'’ ABOVE 
299 002224 000 SMAMS2: .RYTE AMAMS2 ;;:HIGH ADDRESS.M.S. BYTE 
300 002225 000 SMTYP2: .BYTE AMTYP2 ::MEM. TYPE .BLKA2 , 
301 002226 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS ,BLK#2 , 
302 22 000 °° SMAMS3: .BYTE AMAMS3 ;;:HIGH ADDRESS.M.S.BYTE | 
303 002231 000 SMTYP3: .BYTE AMTYP3 ::-MEM. TYPE BLKA3 
304 002232 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS, BLK&3 
305 002234 000 SMAMS4: .RBYTE AMAMS4 ;:HIGH ADDRESS.M.S.BYTE 
306 002235 000 SMTYP4: .BYTE  AMTYP4 ::MEM. TYPE BLK&G 
307 002236 000000 SMADR4: .WORD AMADR4 ;:MEM.LAST ADDRESS. Bi Kas 
302 002240 000000 $VECT1: .WORD AVECT1 :: INTERRUPT VECTOR#1. BUS PRIOR] TY#?) 
309 002242 000000 S$VECT2: .WORD AVECT2 :: INTERRUPT VECTOR#@2BUS PRIORI TY#2 
310 002244 164160 SBASE: .WORD ABASE 3 «BASE ADDRESS OF EQUIPMENT UNDER TEST 
311 002246 000001 SDEVM: .WORD ADEVM :DEVICE MAP 
312 002250 000000 $(Dw1: .WORD  ACDw? - CONTROLLER DESCRIPTION WORD#1 
313 002252 SETEND 
MEX] 
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CVDRDA .P 


Keg sesss 
Mm—OO@On™N 


\AAASRAABAR ERE L LER Oa 
OD NOAWUE WR $0 OODNAUEWN-OO 


SESESEERSES 


4 
~ 
© 


016031 
016354 
016624 
000000 


016050 
016421 
016640 
000000 


015072 
016421 
016640 
Q09000 


016105 
016421 
016640 
000000 


016120 


MACY11? 50A(1052) 


21-OCT-79 


FRROR POINTER TABLE 
ERROR POINTER T4BLE 
:*THTS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
aie SITEMR. THIS NUMBER INDICATES WHICH ITEM IN THE ht # iy PERTINENT. 


. SBTTL 


SERRTB: 


> ERROR 


s ERROR 


sERROR 


> ERROR 


; ERROR 


> ERROR 


> ERROR 


;REG TIMEOUT ER 


s ERRPC 


F 2 
13:38 PAGE 9 


TSTNUM 


;SERRPC TSTNUM 


SREG READ/WRITE 
sERRPC 
:;SERRPC TSTNUM 


TSTNUM 


; IRR REG ER 
ZERRPC 
sSERRPC TSTNUM 


TSTNUM 


:ACR REG ER 
sERRPC 
sSERRPC TSTNUM 


TS TNUM 


'; IMR REG ERROR 
sERRPC 
sS$ERRPC TSTNUM 


TSTNUM 


;I1SR REG ERROR 
> ERRPC 
:SERRPC TSTNUM 


TS TNUM 


TS TNUM 


ER 
BUSADR 
$BDADR 


BUSADR 
$BDADR 


BUSADR 
SBDADR 


BUSADR 
SBDADR 


BUSADR 
$SBDADR 


;VECTOR ADDR MEM ER 
sERRPC 
;SERRPC TSTNUM 


BUSADR 
$BDADR 


ERROR MESSAGE 
DATA HEADER 


Co 
> 


BUSADR 
SBDADR 


VAM 
VEC VAL 


VAM 
VECVAL 


VAM 
VEC VAL 


VAM 
VE CVAL 


VAM 
VEC VAL 


EXPCT 
$SCDDAT 


TA 
DATA FORMAT 


EXPCT 
$SGDDAT 


ADDR 
VECLOC 


ADDR 
VECLOC 


ADDR 
VECLOC 


ADDR 
VECLOC 


ADDR 
VECLOC 


RCVb 
SADDAT 


IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRP 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE 
::POINTS TO THE 
>:;POINTS TO THE 
> POINTS TO THE 


RCVD 
$BDDA! 


EXPC 
SGDDAT 


EXPCT 
$SGDDAT 


EXPCT 
SGDDAT 


EXPCT 
$GDDAT 


EXPCT 
SGDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 


RC VD 
SBDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 
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016201 
016421 
016640 
000000 


016216 
016506 
016660 
000000 


016251 


016276 
016421 
016640 
000000 


016146 
016553 
016674 
000000 


ELERIEEE 
HRNISRLS 


MACY?) 304(1052) 


21-0CT 
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FRROR POINTER TABLE 


: ERROR 


> ERROR 


s ERROR 


; ERROR 


> ERROR 


;CHIP STAT ER 
TSTNUM BUSADR VAM 
;SERRPC TSTNUM $BDADR VECVAL VECLOC $GDDAT 


sERRPC 


;ILLEGAL INTERRUPT 
TSTNUM BUSADR VAM 
;SERRPC TSTNUM S$BDADR- VECVAL 


sERRPC 


10° 


RECEIVED 


; INTERRUPT TEST ERROR | 
TSTNUM BUSADR VAM 
; SERRPC TSTNUM SBDADR- VECVAL 


sERRPC 


sMULTIPLE INTERRUPTS RECEIVED 
;MULTIPLE INTERRUPTS RECEIVED 


ERRPC 


TSTNUM BUSADR VAM 


ADDR 


ADDR 


VECLOC 


: ! 
ADDR 
VECLOC.” $GDDAT 


:SERRPC TSTNUM $BCADR VECVAL 
af; 
;ILLEGAL VECTOR ADDR MEM FRROR 


TSTNUM +TESTAC BUSADR: 
; SERRPC sit wee R at 


TERRPC 


;% 


: BUS REGISTER ADDRESS POINTERS! 


ACRLOC: . 
VECLOC: . 


ABASE 
ABASE +2 
ABASE +4 
ABASE +6 
ABASE +70 
ABASE +12 
ABASE +14 
ABASE +16 


PROGRAM LOCATION(S) 
scour ins: 1651 NUMBER ON ERROR 


OQOOOo00O 


4 


ie 


db 
hd 


/ 


it 


ai 


, 


EC VAL. 


/ 


yt 


EXPCT 


expect 4 


ra $ ony, 


y 


‘ ADDR 
VECLOC 


RCVD 
$BDDAI 


Re VD 
SADDAT 


RC VD! 
werd: 


PAGE: 0019 
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21-0C 1=+79 
ERROR POINTER TABLE 
VECPAT: .wORD 0 
VECVAL: .WORD 0 
SWRSAV: . WORD 0 
GRPCNT: WORD 0 
BD SAV -WORD QO 
LVLCNT: .WORD 0 
BYCNT . WORD 0 
BYNUM: WORD 0 
LVLSAV: WORD 0 


+H 
13:38 PAGE 17 


PAGE: 0020 


I 2 
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CVDRDA.P11 21-0CT=79 13:19 PROGRAM START 


436 .SBTTL PROGRAM START 

437 002476 START: 

438 .SBTTL INITIALIZE THE COMMON TAGS 

439 :: CLEAR THE COMMON TAGS ($CMTAG) AREA 

440 002476 012706 002100 MOV ASCMTAG,R6 szF IRST LOCATION TO BE CLEARED 
441 002502 005026 CLR (R6) + 7z;CLEAR MEMORY LOCATION 

442 002504 022706 002140 (MP #SWR,R6 ; ; DONE? 

443 002510 001374 BNE .~6 :;LOOP BACK IF NO 

444 002512 012706 002100 MOV #2100.S ;;SETUP THE STACK POINTER 
445 INITIALIZE A FEW VECTORS 

446 002516 012737 014416 000020 MOV #SSCOPE ,A@#IOTVEC of ie . ao FOR SCOPE ROUTINE 
447 002524 012737 000340 000022 MOV #340, av IOTVEC+2 7eLEVEL 

448 002532 012737 014070 000030 MOV #SERROR, @FEMTVEC EMT VECTOR FOR ERROR ROUTINE 
449 002540 012737 000340 000032 MOV #340, avEMTVEC +2 ScLEVEL 7 

450 002546 012737 015656 000034 MOV #$T TRAP, @4TRAPVE C ¢7 FC TRAP VECTOR FOR TRAP CALLS 

451 002554 012737 000340 000036 MOV #340, @FTRAPVEC+2: LEVEL 7 

452 002562 012737 015452 000024 MOV #SPWRDN, @FPWAVEC + «POWER FAILURE VECTOR 

453 002570 012737 000340 000026 MOV #340, @YPWRVEC +2 szLEVEL 7 

454 002576 005037 002160 CLR $TI IMES :; INITIALIZE NUMBER OF ITERATIONS 
455 002602 005037 002162 CLR SESCAPE +2 CLEAR THE ESCAPE ON ERROR ADDRESS 
456 002606 112737 000001 002115 MOVB #1, SERMAX ;ALLOW ONE ERROR PER TEST 

457 002614 012737 002614 002106 MOV .. to :s INITIALIZE THE LOOP ADDRESS FOR SCOPE 
458 002622 012737 002622 002110 MOV -SLPERR ;SETUP THE ERROR LOOP ADDRESS 
459 sSIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

460 sEQUAL TO A ‘'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 

461 002630 013746 000004 MOV @VERRVEC ,.- (SP) soo ERROR VECTOR 

462 002634 012737 002670 000004 MOV #64$, QFERRVEC 7::SET UP ERROR VECTOR 

463 002642 012737 177570 002140 MOV #DSWR, SWR :; SETUP FOR A HARDWARE SWICH REGISTER 
464 002650 012737 177570 002142 MOV ADDISP.DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
465 002656 022777 177777 1772564 CMP 4-1, aSwR 7:7; TRY TO REFERENCE HARDWARE SWR 
466 002664 001012 BNE 66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
467 ¢ 2 AND THE HARDWARE SWR IS NOT = -1 
468 002666 000403 BR 65$ say IF NO TIMEOUT 

469 002670 012716 002676 64$: MOV #65$, (SP) -;SET UP FOR TRAP RETURN 

470 002674 000002 RTI 

471 002676 012737 000176 002140 65$: MOV #SWREG, SWR POINT TO SOFTWARE SWR 

472 002704 012737 000174 002142 MOV #DISPREG, DISPLAY 

ong 002712 012637 000004 66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 

475 002716 005037 002176 CLR SPASS :CLEAR PASS COUNT 

476 002722 132737 000200 002211 BITB #APTSIZE,.SENVM “TEST USER SIZE UNDER APT 

477 002730 001403 BEQ 67$ >; YES,USE NON-APT SWITCH 

rie eS nuh 012737 002212 002140 ove MOV #SSWREG, SWR : NO, USE APT SWITCH REGISTER 

480 002740 005037 002172 CLR SFATAL ;CLEAR ERROR NUMBER 

481 002744 005037 002170 CLR SMSGTYP CLEAR MESSAGE TYPE 

482 002750 005037 002174 CLR STESTN ;CLEAR TEST NUMBER 

483 ; CHECK OPERATING ENVIRONMENT 

484 002754 005737 000042 TST ars2 >ARE WE IN ACT/XXDP AUTO MODE? 
485 002760 001410 BEQ 1$ ;BRANCH IF NO 

486 002762 023737 000042 000046 CMP a442 0446 -IS if ACT AUTO MODE? 

487 002770 001410 BEQ 2$ s;BRANCH IF YES 

488 002772 012737 177777 002440 MOV #-1 ,xXDP :SET XXDP CHAIN MODE INDICATOR 
489 003000 000404 Hhe 2$ 

490 003002 123727 002210 000001 1$: CMPB SENV 41 :ARE WE IN APT AUTO MODE? 


491 003010 0010035 BNE 3$ ;BRANCH IF NO 


CVDRDA. 


SERRE 


SAAAVVYVIVIV1 
ad ad ad end aad cd eed es eed 
CONOUESWI—O 


519 
520 


P1) 


003012 


112737 
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000001 


177777 


011164 
002134 


002440 


015736 
016002 
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0021 34 


0024 34 
002434 


0024 34 


002200 
000001 


2 
." pace 13 PAGE : 


;SET AUTO MODE INDICATOR 


~h IN ACT OR Me IkST MODE 


21-0C 1-79 
INITIALIZE THE COMMON T 
2$: MOVB #1,S$AUTOR 
‘PRINT TITLE IF 
3s: INC 
BNE S$ 
JSR RS, TORUF 
TST $AUTOR 
BEQ 4$ 
TST XXDP 
BEQ S$ 
4$: TYPE ,TITLED 
TYPE ,TLCABL 
S$: 
START 
GTSwR 
START1: CLR SUNIT 
MOV SDEVM, 
BIC #177760, DMAP 
MOV SBASE ,R1 
MOV R1,DRCSA 
BIT #1, 
BNE NE XPAS 
JMP NXDEV1 
NEXPAS: MOV #DRCSA,RO 
NEXPA1: MOV R1, (ROS+ 
ADD 2,R1 
CMP #DRDAD+2 RO 
BNE NE XPA1 
JSR RS. TRPCAT 
MOV 2100, SP 
MOV SUNIT .SDEVCT 
c SENV 41 
Q NE XPA2 
RESET 
NEXPA2: MTPS #PR7 


TIME? 
ft TITLE IF NO 
E 0-202 INTO BUFFER AREA 
ARE We IN AUTO MODE? 
;BRANCH TO TITLE TYPEOUT IF NOT 
:I1S_ THE AUTO MODE UNDER XXxDP? 
:SKIP TITLE IF NOT 
:PRINT OUT THE TITLE 
;PRINT DRV11J CABLE REQ*D 


;GET THE VALUE IN THE SOFTWARE SWITCH REGISTER 
TST $AUTOB 


;ARE WE IN AUTOMATIC MODE? 


;BRANCH IF YES 
;ASK FOR SWR INPUT FROM CONSOLE 
7CLEAR UNIT NUMBER 


:UP TO 4 DRV11N'S 

sPOSITION OF DRV11U°S 

:GET BASE ADDRESS 

:MAKE BUS REG.POINTER = BASE 
iTS FIRST DRV11-J SELECTED 


YES 
“NO, ADVANCE BASE DRV11J ADDRESS 
: SET a ADDRESS POINTERS 


“ALL DONE ? 
:BR IF NOT 
;EXTEND TRAP CATCHER 204-1774 
ZALWAYS RESET STACK 
;LOAD APT COUNTER WITH UNIT 4 
;ARE WE IN APT MODE? 
:BR IF YES,SKIP RESET 
: INITIALIZE 


| 2 
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CVDRDA.P11 






TST1: 
120$: 
111$ 
| 
1s 
1) | 
LI 
2$; | 
ie 
' 912737 | 
01 
060937 , 7? 002126 ; 
025737, O0g124 02126 
oS 1001401 J ty I 
5 g03516 Bam hci on 
WY  . 00705 p? 002 Fi 
etl 1) i? ; i 
aur 5 My dh J 
a “” ty 


INITIALIZE THE COMMON T 


> SRAAAARAAAARAAAAAAHRAAARAARAAAAAAAAAARARARAAAARAAAAAARARRARAARARAAARAA 


-*TEST 1 


° eRHRRERERERRERRRRERERAEERRRRRRRRERRRRERRERE EERE EERE RRR 


TEST CHIP INTERRUPT ,GROUP 1,GROUP 2 









SCOPE 
MOV DRCSA,RO :START WITH GROUP 1 
MOV DRCS8,R1 
MOV DRCSA,R2 :REGISTER IS COMMON FOR BOTH GROUPS 
MOV #111$, SLPERR :SET UP LOOP RETURN 
MOV #2, GRPCNT = COUNTER FOR BOTH GROUPS 
JSR RS,CLRCSR :CLEAR ALL CSRS 
MOV #EGCHP3,R3 “EXPECTED GDDAT FOR ISR.IMR 
MOV WCSIMR,IMRLOC :STORE CLEAR SINGLE IMR CODE 
JSR RS, CLRIRR =CLEAR IRR REGS 
MOV #INTSR1, 300 “STORE VECTOR ROUTINE 
MOV #340, 302 “STORE PSW 
CLR INTFLG *CLEAR INT. FLAG 
MOV #2100,SP :INIT STACK IN CASE OF ILLEGAL INT. LOOP 
MOVB  #PVMA, (RO) ;PRESELECT VECTOR MEM ADDR 
MOVB #60, (R1) WRITE VECTOR 300. BYO,LVO 
MOV RO, $ADADR “SAVE BUS ADDR 
MOVB  #SIMR, (RO) =SET ALL IMR Bits 
MOVB IMRLOC . (RO) :CLEAR MASK ON SINGLE BIT 
MO #202, (RO) =LMDO4 = COMMON VECTOR 
MTP #PRO 
— MOVB! #241, (R2) : USED IN TEST OF GROUP 2 
ARM GROUP 1 TO PASS 
“ENABLE TO GROUP 2. 
MO #241, (RO) =LMD57 = ARM THE CHIP 
ist if ;CHECK FOR INTERRUPTS 
ERR | ERROR, ILLEGAL INTERRUPT 
CLR mec “RESET INT. COUNTER 
move ‘ XRO) ;SET ALL IRR BITS) 
$1 as inane ;CHECK FOR No 1 INTERRUPTS 
, 
ERROR fH ' : ILLEGAL INTERRUPTS! ? 
CLR. |.) ENTE INTFLG), 5 AR INT. COUNTER 
 BISB ae" jh 2 | [Ser 176 EX ct INTE 
,MOv,? > XPECT ONE INTERRUPT . 
Mov} ° ndtv epbar ik SHOULD HAVE ONE INTE 
OP | 1 en sSBDDAT ry r 
BEO | 
ERROR “ INTERRURT TEST ERROR 
MIPS inea? eh | 44 ) 
»MOV fro, coos :RDY DIR. IE CHIP + 31x 
MOV. '$BD =CSRA ADDRESS, 
MOV’ » | (RO%.SBDDAT | if 
BIC | #7.$BDDAT CLEAR’ UNDEF INED BITS | 
CMP SGDDAT, SBDDAT | ' 
BEQ 4$ { ry by a's oY 
ERROR} 2.’ || CSRA REG ERROR '.. | 
» MOV R1,, SBDADR Wie {READY TO, READ ISR'REG.: | | 
. SBDDAT i jy!) ESET UP fpr BYTE READS 
aie {I pA om) Hn fi 
' yo? ' rs 7 ’ 1p PPh 7 , 
i 7 4 y i , ‘ 
Shay anti we Pd 
| hae | 
w Yoal | 


PAGE : 


0023 


rv — va : j 7 , 
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CVDRDA DRVI1y DIAG TST serail fcr’ boas o82, 2140 1-79 13:88 “PAGE 1S. | it PAGE: 0024 
CVDRDA.P11 21-OCT-79 4, TES CHIP INTERRUPT GROUP. 1 , GROUP rt Kiiy 
586 003524 005037 908124 CLR | SGDDAT } ySET UP FOR BYTE EXPECTED 
587 003530 111337 ri MOVB) y) (RB) SSGDDAT EXPECTED. DATA’ { 
383 003534 112710 900240 me WMISR, (R 0 ) D MODE’ TO READ 18k 
589 003540 111137 002126 move’ |: (R1) ,$BDDA Ar ACR Po 
590 003544 023737 002124 002126 1) CMP, " $GDDAT, SB0DAT 4. 
591 003552 001401 Bea SS + ih chy Peg 
592 003554 104006 ERROR 4! 6) °| /s4SR ERAOR. 
593 003556 116337 000001 002124 5$: MOVB URS) « SGDDAT' ; STORE, EXPECTED! 
594 003564 112710 00024 MOVE (ROY! ;  $LOAD, hove Of the 
595 003570 111137 002126 MOVB CRI) DAT /) «| 
596 003574 023737 002124 002126 CMP,‘ $GDDAT, SBDDAT + | 
597 003602 001401 BEQ. |, pe Ps | 
598 003604 104005 ERROR f i oad Be IMR ERROR)? 
599 003606 116337 1 002124 68: MOVB VERS), $GDDAT | / sEXPECTED IRR /” ” | 
600 003614 112710 000250 MOVB’ (AMIRR, (ROY LOAD ‘MODE Breen IRR i 
601 003620 111137 002126 MOVB | (R1),$BDDAT/ 
602 003624 023737 002124 002126 cmp | f SGDDAT. SBDDAT, ’ bh | 
603 003632 001401 BEQ 7 y ae aed Pee n | 
604 003634 104003 ERROR) 3 | “IRR, ERROR 
605 003636 005037 002124 7$: CLR SGDDAT Tle 8 td i 4 
606 003642 112710 00025 MOVE | #MACR, (RO) 2 iy | 
607 003646 111137 002126 MOvVB. , (R1),$BDDAT Nie re 
608 003652 023737 002124 002126 CMP AT,sBppar, 6 hy }. 
609 003660 001401 BEQ 10$/, 4 ) nbd 
610 003662 104 ERROR 4), (| ACR ERROR Ae 
611 003664 005037 002124 10$: CLR.» SGDDAT/ 
612 003670 112710 140 MOVB | #CHPISR, (RO) Bitty y PRIOR ISR 
613 003674 112710 240 MOVB * #MISR,(RO)”, | | E TO READ ISR 
614 003700 111137 002126 MOVB (R1),$B8DDAT , | | 
615 003704 023737 002124 002126 CMP ScDDAT, SBDDAT (4 /P" 0 bi | 
616 003712 001401 BEQ » bee | | 
617 003714 104006 ERROR - z1sr REG ERROR - 
618 003716 012737 101710 002124 11$: MOV © #101710, SGDDAT :RDY DIR. TE g CHIP = 31%" | 
619 003724 010237 002122 MOV R :CSRA ADDRE 
620 003 011237 002126 MOV (RO) SEDDAT 
621 003 2737 002126 BIC #7 , SBDDAT CLEAR UNDEF INED airs * 
002126 CMP SGDDAT , SBDDAT rm” Be dal } 
BEQ 12$ , | | 
ERROR 2 SCSRA,REG ERROR) 
002124 128: MOV’ #100710, SGDDAT’ :RDY,DIR, CHIR: - 31x | 
BIC IT9, (R2) ;CLEAR 1/E Ya 
MOV (R2), SapDAT 
002126 BIC #7, SBDDAT :CLEAR UNDEF INED BITS 
629 002126 CMP $cDDAT. SBODAT BY 
6 BEQ 13$ pir ht 
ERROR 2 SCSRA REG ERROR ||” 
632 13$: TST > :GET NEXT ISR, im Exe ep | 
CMP R3,MEDCHP3 :CHECK FOR END) he 
634 BEQ 14$ 
INC IMRLOC ; INCREMENT MASK if TO Lea 
636 JMP 111$ :TEST NEXT ISR BIT. | 3 
14$: DEC GRPCNT | [TESTED BOTH GROUPS?) '* | 
638 BEQ TST2 ::BR IF DONE Yio, ee 
0137 MOV DRCSC.RO '. ; SETUP FOR GROUP Pas Hid 
640 013701 002426 MOV DRCSD.R1 $CSRC ‘= CONTROL: 4.) hid | 
641 ;CSRD = DATA , Li acid re | 
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TNR Mm ma Ps Ps es 
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fh beg 
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000241 
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002436 
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000340 
002122 
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000300 
000302 
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; eee 


111$: 


2$: 


21-0CT=79 13: 33." AGE 16 ’ 
TEST CHIP, INTERRUPT, “GROUP 1 /CROUP bay 


JMP 
iat 


/ j 


; 







Ie " 
1208 i00 Por ” f My Wy Lip 
: , — j ; ‘ 1 i : ‘ Di» 
(é Pid, op Ms] 5 | f d y 


TEST’ ACR/ISR_ INTERRUPT *+,GROUP)T, "Tae 9 A 


paponsapooonanpng manana priyes po rrrrr tit t cs, 
; ’ | pi, | . Je i j , 
“DRCSA,RO fa 9 td HE 
‘DRCSB,R1, / ,? 
DRCSA,R2 pe 
aul? siren rs Ey ue UP’ ‘00°F Tad 
R5., CLRCSR_! iC AR “atk C 
"R3 neat aes 
#CSIMR, IMRLOC 
RS,CLRIRR / 
#INTSRI1 300 as RE Ve TOR acl 
#340, 302  ¢ STORE, PS } 
INTFLG, * / CLEAR INT FLAG! ! 
2100,SP_ :INIT STACK IN’ CASE 
#B1T9,(R2) : CLEAR .INTERRUPT ENABLE 
#242, (R ; CLEAR TER MASK /GP1 laf 
#242, (RO) LEAR MASTER MASK GP1LGP2 si, 
#PACR, (RO), *PRESELECT ACR FOR WRITING | - 
(R3),(R1) “NEXT BIT INTO ACR 
#PVMA, (RO) sPRESELECT VECTOR MEM ADDR 
#60, (R1) “WRITE V CTOR. 300. 28Y0, LVvO 
RO, $BDADR : STORE bus 
#SIMR, (RO) *SET ALL I sits 
IMRLOC, (RO) =CLEAR MASK ON SINGLE BIT 
oeCs . (RO) :LMD04 = COMMON VECTOR 
#B81T1,1(R2) :SET 1/E.NO INTERRUPT 
INTFLG :CHECK FOR INTERRUPTS 
11 ERROR, ILLEGAL INTERRUPT 
INTFLG sRESET INT. COUNTER 
#SIRR. (RO) SET ALL IRR BITS 
INTFLG :CHECK FOR NO INTERRUPTS 
11 : ILLEGAL INTERRUPTS 
INTFLG :CLEAR INT. CQUNTER 
#241, (R2) USED _IN TEST OF GROUP 2 
GROUP 1 CHIP TO PASS 
“ENABLE T GROUP 2 CHIP 
#241, (RO) “ARM THE CHIP 
#1, $GDDAT [EXPECT ONE INTERRUPT 
INTFLG,$8DDAT ;:SHOULD HAVE ONE INTERRUPT 
SGDDAT. ,SBDDAT 
is ’ : INTERRUPT TEST ERROR 
R1,$BDADR READY TO READ ISR REG. 
SBDDAT :SET UP FOR BYTE READS 


CVDRDA DRV11J DIAG TST PRI2 
CVDRDA.P11 


YYIAIIYASS 3 3 


ad ad ed od wd 
Qu sWWh—oO 


004356 
362 


01 
013701 
000137 


21-OCT-79 13:19 


MACY11 


002126 


002124 


002126 


002124 


002126 


002126 


30A (1052) 
T2 


5$: 


6$: 


7$: 


10$: 


11$: 


N 2 
21-OCT-79 13:38 PAGE 17 


PAGE : 
TEST ACR/ISR INTERRUPT ,GROUP 1,GROUP 2 
CLR SGDDAT :SET UP FOR BYTE EXPECTED 
MOVB  #MISR, (RO) “LOAD MODE TO READ ISR 
MOVB  (R1),$BDDAT 
CMP SCDDAT. SBDDAT :ACR SHOULD CLEAR ISR 
ERROR 6 : ISR ERROR 
MOVB  1(R3),$GDDAT  :STORE EXPECTED i 
MOVB  #MIMR. (RO) =LOAD MODE FOR IMR 
MOVB  (R1),$BDDAT 
CMP SGDDAT .$BDDAT 
BEQ 6$ 
ERROR 5 ; IMR ERROR 
MOVB  1(R3),$GDDAT EXPECTED IRR 
MOVB  #MIRR. (RO) =LOAD MODE BITS FOR IRR 
MOVB _ (R1), $BDDAT 
CMP SGDDAT , SBDDAT 
BEQ 7$ 
ERROR 3 : IRR ERROR 
MOVB  - (R3) , SGDDAT “EXPECTED ACR 
MOVB  4#MACR, (RO 
MOVB _ (R1),$BDDAT 
CMP SGDDAT , SBDDAT 
BEQ 10$ 
ERROR :ACR ERROR 
TST )+ “GET NEXT ISR,IMR,IRR EXPECTED RESULTS 
CMP R3,MEDCHP3 ;CHECK FOR END 
BEQ 11$ “DONE WITH GROUP TEST 
INC IMRLOC = INCREMENT MASK BIT TO CLEAR 
JMP 111$ -TEST NEXT ISR BIT 
DEC GRPCNT *TESTED BOTH GROUPS? 
BEQ TST3 ss F DONE 
MOV DRCSC.RO -SETUP FOR GROUP 2 
MOV DRCSD.R1 *CSRC = CONTROL GROUP 2 
“CSRD = DATA GROUP 2 
JMP 120$ D0 2 


fT ARERR AEKEKEKEKEEAAERAKEEAREKEAKEAEERAAEAKEEEAEEAKEEKKKEEKE 


s*TEST 3 


1813: 


120$: 


121$: 


SCOPE 


TEST VECTOR ADDR MEM,LEV 0-7,BY0-3, (204-1774) ,GRPS 1,2 


'mAAAALAAALALASASALALAAERAARLARAAASARASRARASAARARARAS LR AR SAS RA SSS SE SS | 





#112$.$LPERR 


:D0 TWO GROUPS 

; INIT FOR BYTE COUNT 0 

:CLEAR ALL CSRS 

START VECTOR LEVEL O,BYTE COUNT 0 
ately ISR, IMR PATTERN 


AT 
; ER FOR 0-7 LEVELS 
sSTORE SINGLE IMR CODE 
STORE SINGLE 


; L 
sRESTORE TRAP CATCHE 
sSTORE SCOPE LOOP 


0026 





VDRDA.P11 


012737 
106427 


112712 


013703 
010337 
006037 


106427 
152762 
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-002452 


000002 
002476 


2 ‘O90 91 


002124 
002126 
002126 


002126 


002124 


113$: 


3$: 
4$: 


5$: 


B 3 
13:38 PAGE 





18 
ST VECTOR ADDR MEM, tev 0-7 ,BY0=-3, (204-1774) ,GRPS 1,2 


eS} vecT -79 

V #204, VECLOC 
MTPS #340 
MOV #2100,SP 
BIC #B1T9,(R2) 
JSR R5,CLRIRR 
MOVB #241, (R2) 
MOV 4 ee $F ae 
MOV R3,VEC 
ROR vECPAT 
ROR VECPAT 
MOV #INTBY4, (R3) 
MOV #340,2(R3) 
CLR INTFLG 
MOV BYNUM ,BYCNT 
MOVB VECVAL , (RO) 
MOVB VECPAT, (R1) 
DEC BYCNT 
BNE 113$ 
MOV RO, $BDADR 
MOVB #SIMR, (RO) 
MOVB IMRLOC, (RO) 
MTPS #PRO 
MOVB #241,(RO) 
TST INTFLG 
BEQ 1$ 
ERROR 11 
CLR INTFLG 
MOVB IRRLOC, (RO) 
MTPS #PR/ 
TST INTFLG 
BEQ 2$ 
ERROR 11 
CLR INTFLG 
MTPS #PRO 
BISB #B1T1,1(R2) 
MOV BYNUM, $GDDAT 
MOV INTFiLG, SBDDAT 
CMP SGDDAT , S$BDDAT 
BEQ 3$ 
ERROR 12 
MTPS #PR7 
MOV R1,$BDADR 
CLR DDAT 
CLR DDAT 
MOVB (R4) ,SGDDAT 
MOVB #MISR, (RO) 
MOVB (R1) , SBDDAT 
CMP $GDDAT , SBDDAT 
BEQ 5$ 
ERROR 6 
MOVB 1(R4) , SGDDAT 
MOVB #MIMR, (RO) 


;START AT VECTOR 204 


: INIT STACK IN CASE OF ILLEGAL INT. LOOP 
; CLEAR INTERRUPT ENABLE 
IRR REGS 
D IN TEST OF GROUP 2 
GROUP 1 CHIP TO PASS 


ENABLE TO GROUP? 
;GET VECTOR 


sROTATE VECTOR ADDR TWO RIGHT 
;TO WRITE VECTOR MEM ADDR. 
;STORE VECTOR ROUTINE 

; STORE PSW 

;CLEAR INT. FLAG 

;BYTE COUNTS OF 0-3 
sPRESELECT VECTOR MEM ADDR 
WRITE VECTOR 


;DONE WITH BYTE COUNT VALUE 
:NC LOAD VECTOR FOR NEXT BYTE COUNT 
; sAvE at atts 


IMR BITS 
CLEAR MASK ON SINGLE BIT 


MDS7 ~- ARM THE CHIP 
CHECK FOR INTERRUPTS 


;ERROR, ILLEGAL INTERRUPT 
;RESET INT. COUNTER 
;SET SINGLE IRR BIT 


;CHECK FOR NO INTERRUPTS 


; ILLEGAL INTERRUPTS 
;CLEAR INT. COUNTER 


sSET I1/E, EXPECT INTERRUPT 
sEXPECT 1 TO 4 INTERRUPTS 


; ALUE 
;SHOULD HAVE 1 TO 4 INTERRUPTS 
;BASED ON BYTE COUNT VALUE 


; INTERRUPT TEST ERROR 


sREADY TO READ ISR REG. 
;SET UP FOR BYTE READS 
:SET UP FOR BYTE EXPECTED 
sEXPECTED DATA 

;LOAD MODE TO READ ISR 


: ISR ERROR 
:STORE EXPECTED 
“LOAD MODE FOR IMR 





111137 





CVDRDA DRV11J DIAG TST PRT2 
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002000 


002412 
002416 
002412 


MACY11 30A(1052) 
T3 


002126 


002126 


002126 


002126 


002452 


002456 


6$: 


7$: 


10$: 


11$: 


12$: 


13$: 


146$: 


3 
13:38 “PACE 1 


21-OCT-79 
TEST VECTOR ADDR MEM,LEV 
MOVB - (R1) .SBDDAT 
CMP SGDDAT , $BDDAT 
BEQ 6$ 
ERROR 
CLR SGDDAT 
MOVB  #MIRR, (RO) 
MOVB _—(R1) , $BDDAT 
CMP SGDDAT, SBDDAT 
BEQ 7$ 
ERROR 
CLR $GDDAT 
MOVB  #MACR,(R 
MOVB _— (R1) , $BDDAT 
CMP SGDDAT . $BDDAT 
BEQ 10$ 
ERROR 4 
CLR $GDDAT 
MOVB — ISRLOC, (RO) 
MOVB  #MISR, (RO) 
MOVB _— (R1) , $8DDAT 
CMP $oDDAT, SBDDAT 
BEC 
ERROR 
JSR R5RESTRP 
CMP #2000, VECLOC 
BEQ 12$ 
JMP 112$ 
TST (R4)+ 
INC IMRLOC 
INC IRRLOC 
INC ISRLOC 
INC VE CVAL 
DEC LVLCNT 
BEQ 13$ 
JMP 111$ 
INC BYNUM 
CKSWR 
CMP #400, VECVAL 
BEQ 14$ 
JMP 121$ 
DEC CRPCNT 
BEQ TST4 
MOV DRCSC.RO 
MOV DRCSD.R1 
JMP 120$ 


;CSRD 





19 
0-7 ,BY0-3, (204-1774) ,GRPS 1,2 


; IMR ERROR 
;LOAD MODE BITS FOR IRR 


; IRR ERRGR 


;ACR ERROR 


;CLEAR SINGLE ISR BIT 
;LOAD MODE TO READ ISR 


;ISR REG ERROR 

sRESTORE VECTOR JUST TESTED 
7 FINISHED? 

;FINISHED VECTORS 204-1774? 


; TEST NEXT VECTOR ADDR 

: INDEX EXPECTED ISR AND IMR PATTERN 
TORE CLEAR FOR NEXT MASK BIT 

® STORE SET FOR NEXT IRR BIT 

;STORE CLEAR FOR NEXT ISR BIT 


:SETUP TO TEST NEXT VECTOR LEVEL 


;FINISHED LEVELS 0-7 
sYES, CHECK BYTE COUNT END 


"LOOK FOR SWITCH CHANGE REQUEST 
ot inten ALL BYTE COUNTS 0-3 
FINISHED TWO GROUPS? 
DO NEXT BYTE COUNT FOR 
;LEVELS 0-7 


0- 
“FINISHED TWO GROUPS? 
Fo IF DONE 


C = CONTROL GROUP 2 

= GROUP 2 
;DO0 GROUP 2 FOR BYTE COUNTS 0-3 
:AND LEVELS 0-7 FOR EACH BYTE COUNT. 


F2 SRST AAAATARAARAARAEAAARERAAEAARAEARARAARARARAARARRARRARERRERERERKRE KARR EE 


ieTEST 4 


MEM, LVLS 0-7,BY0-3,(0-200)GRPS i,2 


i SEARS ARAKKARAAKRARARARERARERRAREKRERERRRERRERREEE ES 


TS14: 


TEST VECTOR ADDR 
SCOPE 
MOV DRCSA,RO 
MOV DRCSB,R! 
MOV DRCSA,Re 





CVDRDA DRV11J DIAG TST PRT2 
CVDRDA.P11 


<1-0CT-79 


012737 
012737 
004 


oOoo°0o°o 
ab at ad ad ad 


012737 
005037 
106427 
004537 
112712 
013703 
004537 

010337 
006037 


7 
013737 
113710 


015737 
015737 


13:19 


002436 


000002 
002472 
0024 36 


MACY11 —e, 
T4 


002110 


000001 
002124 
002126 


1208: 


121$: 


113$: 


1$: 


23: 


aft ecran 20 PAGE : 
ST VECTOR ADDR MEM.LVLS 0-7,BY0=3, (0=200)GRPS 1,2 
MOV #2. GRPCNT :DO TWO GROUPS 
MOV #1 .BYNUM “INIT FOR FIRST BYTE COUNT 
JSR RS. CLRCSR “CLEAR ALL CSR 
MOV #PVMA VECVAL =: START VECTOR LEVEL O.BYTE COUNT 0 
MOV WRGCHP3 RS *1SR,IMR PATTERN 
MOV #8. .LVLCNT -START LEVEL COUNT 0-7 
MOV WCSIMR,IMRLOC :STORE CLEAR SINGLE IMR BIT CODE 
MOV WSSIRR,IRRLOC :STORE SET SINGLE IRR BI’ COLE 
MOV #112$.$LPERR § :LOOP RETURN 
CLR VECLOC “START AT VECTOR 0 
MIPS #340 ; 
MOV #2100.SP -INIT STACK IN CASE OF ILLEGAL INT. LOOP 
BIC #31T9. (R2) “CLEAR INTERRUPT ENABLE 
JSR RS, CLRIRR “CLEAR IRR REGS 
MOVB #261. (R2) “USED IN TEST OF GROUP 2 
-ARM GROUP 1 CHIP TO PASS 
“ENABLE TO GROUP 2. 
MOV VECLOC,R3 :GET VECTOR 
JSR R5. CAT200 STORE TRAP CATCHER FOR 0-200 
MOV R3.VECPAT 
ROR VECPAT :ROTATE VECTOR ADDR TWO RIGHT 
ROR VECPAT >TO WRITE VECTOR MEM ADDR. 
MOV #INTSR3, (R3) = STORE VECTOR ROUT INE 
MOV #340,2(R3) sSTORE P 
LR INTFLG “CLEAR nT. FLAG 
MOV BYNUM RY CNT :BYTE COUNT OF 0 TO 3 
OR 1 TO 4 VECT 
MOVB VEC VAL. (RO) =PRESELECT VECTOR MEM ADDR 
MOVB —-VECPAT.|.(R1) WRITE VEC 
DEC BYCNT *DO 1 TO 4 VECTORS 
BNE 113$ “WRITE VECTORS BASED ON BYTE COUNT 
MOV RO, $BDADR “SAVE BUS ADDRESS 
MOVB  #SIMR, (RO) -SET ALL IMR BITS 
MOVB ———IMRLOC, (RO) >CLEAR MASK ON SINGLE BIT 
MIPS  #PR 
MOVB  #241.(RO) =LMDS7 = ARM THE CHIP 
Ts! INTFLG -CHECK FOR INTERRUPTS 
JSR R5, FRMBUF :RESTORE 0-202 
ERROR 11 “ERROR, ILLEGAL INTERRUPT 
JSR R5.CAT200 “RESTORE TRAP CATCHER 
CLR INTFLG “RESET INT. COUNTER 
MOVB —__IRRLOC. (RO) -SET SINGLE IRR BIT 
MIPS  #PR? 
Ist INTFLG :CHECK FOR NO INTERRUPTS 
JSR RS. FRMBUF :RESTORE 0-202 
ERROR 11 “ILLEGAL INTERRUPTS 
JSR ~—«R'5, CAT200 “RESTORE TRAP CATCHER 
CLR INTFLG “CLEAR INT. COUNTER 
MIPS  #PRO 
BISB #BIT1,1(R2) :SET 1/E.EXPECT INTERRUPT 
MOV BYNUM.$GDDAT  :EXPECT NUMBER OF INTERRUPTS 
- EQUAL 10. BYTE COUNT. 
MOV INTFLG,$BDDAT , :SHOULD HAVE NUMBER OF INTERRUPTS 


3 
13:38 ” OAGE 


;EQUAL TO BYTE COUNT. 


0029 
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21-00 T=79 13:19 
00212% 
f 
7? 0112046 
011634 
000 340 
002122 
002126) 
002124 
002124 
000246 
002126 
002124 
004 011204 
004537 011634 
116437 
112710 000244 
111137 002126 
023737 002124 
001405 
004537 011204 
104005 
004537 011634 
005037: 002124 
112710 000250 
111137 002126 
023737 002124 
001405 
004537 011204 
104003 
004537 011634 
005037 002124 
112710 000254 
111137 002126 
022737 002124 
001405 
004537 011204 
104004 
004537 011634’ 
005037 002124 
112710 1 
112710 24 
111137 002126 
023737 002124 
001405 
004537 011204 
104006 
004537 011634 
004537 011572 
004537 0172046 
022737 000204 
001402 
000137 005556 
005724 


MACY11 30A(1052) 
Te 


502126 
/ 


002124 


002126 


002126 


002126 


002126 


OC 2452 


S$: 


6$: 


7$: 


on 


Fin tr -79 13: 
fag DDAT ,$ADDAT 
ji BE | 
J JSR) 1 RS. RMBUF 
ERR 7 
JSR, R5 /CAT200 
MIPS #PR7 
MOV R1,$8DADR 
, CLR, SBDDAT 
C' SGDDAT 
MO (RG) ,$GDDAT 
“MOVB — #MISR, (RO) 
MOVB (R1) ,$BDDAT 
CMP SGDDAT . $BDDAT 
BEQ 6| S$ 
,USR | RS, FRMBUF 
/ERR 6 
_ JSR RS,.CAT200 
MOVE ; 1(R4),$GDDAT 
MOVB' #MIMR. (RO) 
MOVA (R1), $BDDAT 
CMP! $GDDAT, $BDDAT 
BEQ/ 6$ 
JSRE. R5. FRMBUF 
ERROR 5 
JSR R5,CAT200 
CLR SGDDAT 
MOVB #MIRR, (RO) 
MOVB (R1) ,$BDDAT 
CMP SGDDAT, $BDDAT 
BEQ 7$ 
JSR RS. FRMBUF 
ERR 3 
JSR RS,CAT200 
CLR SGDDAT 
MOVB*  #MACR, (RO) 
MOVB (R1) ,$BDDAT 
ud SGDDAT, SBDDAT 
BEQ 10$ 
JSR« RS. FRMBUF 
ERR 4 
JSR R5.CAT200 
CLR SGDDAT 
MOVB #CISR, (RO) 
MOVB #MISR. (RO) 
MO (R1) , $BDDAT 
CMP |. $CDDAT, SADDAT 
BEQ; / 
JS RS. F RMBUF 
ERROR 6 
JSR ‘RS, CAT200 
JSR ‘R5.RES200 
JSR R5_ FRMBUF 
CMP #204, VECLOC 
BEQ 
» IMP {30 
TST (R&)* 


: 2 
8 PAGE 21 
T VECTOR ADDRIMEM,LVLS 0-7,BY0-3,(0=200)GRPS 1,2 


sRESTORE 0-202 

; INTERRUPT TEST ERROR 

;RESTORE TRAP CATCHER SUB 

sREADY TO READ ISR REG. 
SET UP FOR BYTE READS 
-SET UP FOR BYTE EXPECTED 

“EXPECTED DATA 

;LOAD MODE TO READ ISR 


TSR ERROR 0-200 
sRESTORE TRAP CATCHER 


;STORE EXPECTED 
:LOAD MODE FOR IMR 


; RESTORE 0-202 
MR ERROR 
:RESTORE CATCHER 
;LOAD MODE BITS FOR IRR 


ant yw 0-202 
; IRR ERROR 
:RESTORE TRAP CATCHER 


iy a 0-202 
SRESTORE TRAP CATCHER 


;CLEAR ISR 
:LOAD MODE TO READ ISR 


% 


RESTORE 0-202 


;RE CHE 

yo Fh VECTOR JUST TESTED 
sRESTORE 0-200 TO SYSMAC CONTROL 
;F INI SHED? 


: TEST NEXT VECTOR ADDR 
; INDEX EXPECTED ISR AND IMR PATTERN 


PAGE : 


0030 


j . ; gd 


FcvpmDa paviss DIAG TST pRI2.macvtt SoaCT0SE), graocra79 13:38 "exe 22 uae 081 | 


| CVDRDA DRV11J DIAG TST PRIZ MACY11 30A( 1052) 21<0C1=79 13:38 PAGE 22 PAGE: 0031 
CVDRDA.P11/ 21-OCT-79 13:1 Te 4, TEST VECTOR ADDR MEM,LVLS 0-7,BY0=3, (0=200)GRPS 1,2 

978 006346 005237 002442 | panic, IMRLOC :STORE CLEAR NEXT IMR BIT 

979 006352 005237 002446 A, A INC IRRLOC “STORE SET NEXT IRR BIT 

980 006356 ,005237 002456 INC VECVAL “SETUP TO TEST NEXT VECTOR LEVEL 

981 006362 / 005337 002466 a DEC LVLCNT “FINISHED LEVELS 0-7? 

982 006366’ 001402 | BEQ 13§ “YES,CHECK BYTE COUNT END 

983 006370 000137 005552 | MP 111$ “NO,DO NEXT LEVEL,SAME BYTE COUNT 

984 006374 005237 002472 A%s: INC BYNUM ; INDEX BYTE COUNT 

985 006400 104407 / CK SWR ‘LOOK FOR SWITCH CHANGE 

986 006402 022737 000400 002456 CMP #400, VECVAL FINISHED ALL FOUR BYTE COUNTS 

987 006410 001402 BEO 14$ -YES,FINISHED GROUP 

988 006412 000137 005516 » MP 121$ NO-DO NEXT, BYTE COUNT WITH 

L 

990 006416 005337 002462 / 16$: DEC GRPCNT “FINISHED BOTH GROUP 1 AND GROUP 2? 
391 006422 001406 BE 15$ “YES,BOTH GROUPS TESTED 

992 006424 013700 002422 MOV DRCSC.RO “NO, TEST GROUP 2 

993 : : “CSRC = CONTROL GROUP 2 

994 006630 013701 0024626 MOV DRCSD.R1 “CSRD = DATA GROUP 2 

995 006434 000137 005476 IMP 120$ “RETURN AND TEST GROUP2 

196 “FOR BYTE COUNTS 0-3 AND 

997 “LEVELS 0-7 FOR EACH BYTE COUNT. 

998 006440 004537 011204 15$: JSR RS .F RMBUF “RESTORE 0+202,EXIT TEST 

1000 a T J 
1001 UCU ITT te iti i titi i titi iti titiititiiiiti tit iii ti SHkeketanene 

1002 “eTEST 5 TEST VECTOR ADDR UNJQUENESS IN FIXED MODE FOR GRPS 1,2 
1003 jteeeneeaeereennecenacsnecenennenanenegnensarauenetieeaseneeness 

1004 006444 000004 TS15: SCOPE | Pog 

1005 -BYTE COUNT = 4 ;' 

1006 “LEVELS = 0-7 

1007 006446 004537 010650 JSR RS.CLRCSR CLEAR, ALL'ICSRS. / 

1008 006452 004537 011144 JSR R5: CLRBF CLEAR’ VECTOR BURFER AREA 

1 006456 004537 011334 SR RS“ TRPCAT “RESTORE TRAP ‘CATCHER 

1010 006462 004537 011110 45R RS“ STRVE( “STORE VECTOR AREA 300-674 

1011 | “WITH INT. SERV. ROUTINES 

1012 006466 012737 000377 002456 MOV #377. VECVAL “VECTOR MEM FINAL VALUE 

1013 006474 004537 010730 SK P5CLRIRR “CLEAR IRR REGS | 7 

1014 006500 012704 017116 MOV #VBUF .R4 “VECTOR ADDRESS BUFFER 

1015 006504 004537 010766 JSR RS, VECFIL “FILL VECTOR MEMOR FOR GROUPS 1.2 
1016 “WITH VECTORS 00-674 | 

1017 006510 013700 002412 MOV DRCSA.RO “GROUP 1 CSR | 

1018 006514 013701 002422 MOV DRCSC_R1 “GROUP 2 CSR j 

1019 006520 013702 002416 MOV DRCSB.R2 a 

1020 006524 013703 002426 MOV DRCSD_R3 o? 
1021 006530 010037 002122 MOV RO, SBDADR :STORE BUS ADDRESS ' 
1022 006534 112710 000300 MOVB —- #PACR.. (RO) “PRESELECT GP1 ACR FOR WRITING , 
1023 006540 112712 000377 MOVB #377. (R2) “SET ALL ACR BITS GP1 : 
1024 006544 112710 000040 MOVB = #CIMR, (RO) “CLEAR ALL IMR BITS GP! 

1025 006550 005037 002436 CLR INTFLG “CLEAR INT. FLAG 

1026 006554 106427 000000 MIPS  #PRO 

1027 006560 112710 000120 MOVB = #SI RR. (RO) :SET ALL IRR BITS 

1028 006 112710 000241 MOVB #241, (RO) “LMD57 = ARM THE CHIP 

1029 006570 100427 000340 MIPS #340 

1030 006574 005737 002436 TST INTFLG -CHECK FOR NO INTERRUPTS 

1031 006600 001401 BEQ 1$ 

1032 006602 104011 FRROR 17 :ILLEGAL INTERRUPT 

1033 006604 005037 


0024 3¢ 1$: CLR INTFLC 
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TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 


21=0( T=79 
MOVB = #PACR, (R1) 
MOVB  4#377,(R3) 
MOVB  #CIMR,(R1) 
MIPS #PRO 
MOVB  #SIRR,(R1) 
MOVB  #241,(R1) 
MT°S = #PR? 
TST INTFLG 
BEQ 2$ 
ERROR 11 
CLR INTFLG 
MTPS  #PRO 
BISB  #BIT1,1(RO) 
MOV #64. , $GDDAT 
MOV INTFLG, $BDDAT 
MIPS  #PR? 
CMP $GDDAT. $BDDAT 
BEQ 3g 
ERROR 12 
MOV #101710, $GDDAT 
MOV RO, $BDADR 
MOV (RO) ,$BDDAT 
BIC #7, SBDDAT 
CMP $GDDAT , $BDDAT 
BEQ ss $$ 
ERROR,’ 2 
mov / #310.$GDDAT 
MOV R1,$BDADR 
MOV ‘(R1) ,SBDDAT 
BIC #7, SBDDAT 
CMP $GDDAT,, $BDDAT 
BEQ 5$ 
ERROR 2 
MOV R2, SBDADR | 
CLR $BDDAT 
CLR SGDDAT 
MOVB  #MISR, (RO) 
MOVB (R2) ,$BDDAT 
CMP $GDDAT, $BDDAT 
BEQ 6$ 
ERROR 6 
MOVB  #MIMR. (RO) 
MOVB (R2) , $BDDAT 
CMP SGDDAT, $BDDAT 
BEQ 7$ 
ERROR 5 . 
MOVB  #MIRR, (RO) 
MOVB  (R2). $BDDAT 
CMP SGDDAT, $BDDAT 
BEQ 10$ 
ERROR 3 
MOV #377, $GDDAT 
MOVB  #MACR, (RO) 
MOVB (R2) , $BDDAT 
CMP $GDDAT. $BDDAT 
BEQ 11$ 


;PRESELECT GROUP2 FOR WRITING 
sALL ACR BITS SET GP2 
;CLEAR ALL IMR BITS GP2 


;SET ALL IRR BITS 
:LMD57 = ARM THE CHIP 


; CHECK FOR NO INTERRUPTS 
;ILLEGAL INTERRUPT 
;SET INT. ENABLE ,EXPECT INTERRUPTS 


[EXPECT 64 INTERRUPTS 
;SHOULD HAVE 64 INTERRUPTS 


; INTERRUPT TEST ERROR 
SRDY,DIR,I/E,CHIP = 31x 
;CSRA 


;CLEAR UNDEFINED BITS 


;CSRA REG ERROR 
oo EXPECTED 


“CLEAR UNDEFINED BITS 


:CSRC ERROR 
;CSRB ADDRESS 


sREAD ISR 


;1SR_ERROR,GP1 


sMODE BITS FOR IMR 


; IMR ERROR ,GP1 
sMODE BITS FOR IRR 


: IRR ERROR 


sEXPECTED ACR 
sREAD ACR 


PAGE : 
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CVDRDA.P11 21-OCT-79 13:19 T5 TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 
1090 007150 104004 ERROR 4 ;ACR ERROR 
1091 007152 005037 002124 118: CLR SGDDAT 
1092 007156 005037 002126 CLR SBDDAT 
1093 007162 010337 002122 MOV R3,$BDADR :CSRD ADDRESS 
1094 007166 112711 000240 MOVB #MISR, (R1) READ ISR ,GP2 
1095 007172 111337 002126 MOVB (R3) ,$BDDAT 
1096 007176 023737 002124 002126 CMP $GDDAT , $BDDAT 
1097 007204 001401 BEQ 12$ 
1098 007206 104006 ERROR 6 ;1SR ERROR,GP1 
1099 007210 112711 000244 12$: MOVB AMIMR, (R1) ;READ IMR GP2 
1100 007214 111337 002126 MOVB (R3) ,SBDDAT 
1101 007220 023737 002124 002126 CMP SGDDAT , SBDDAT 
1102 007226 001401 BEQ 13$ 
Bye 007230 104005 ERROR 5 > IMR ERROR,GP2 
1105 007232 112711 000250 13$: MOVB AMIRR,(R1) ZREAD IRR 
1106 007236 111337 002126 MOVB (R3) , SBDDAT 
1107 007242 023737 002124 002126 CMP $SGDDAT , $BDDAT 
1108 007250 001401 BEQ 14$ 
1109 007252 104003 ERROR 3 ; IRR ERROR,GP2 
1110 007254 112711 000254 14$: MOVB #MACR, (R1) ;READ ACR 
1111. 007260 012737 000377 002124 MOV #377, $GDDAT 
1112 007266 111337 002126 MOVB (R3) ,SBDDAT 
1113 007272 023737 002124 002126 CMP SGDDAT , SBDDAT 
1114 007300 001401 BEQ 15$ 
1115 007302 104004 ERROR 4 ;ACR ERROR,GP2 
1116 007304 012702 000100 15$: MOV #64. ,R2 
1117 0073510 012704 017116 MOV #VBUF ,R4 : VECTOR BUFFER 
1118 007314 012737 000300 002124 MOV #300, S$GDDAT ;START WITH FIRST VECTOR 300 
1119 007322 010437 002122 16$: MOV RZ, $BDADR ;VECTOR BUFFER ADDRESS 
1120 007326 011437 002126 MOV (RS), SBDDAT 
1121 007332 023737 002124 002126 CMP SGDDAT , SBDDAT 
1122 007340 001401 BEQ 17$ :VECTORED PROPERLY 
1123 007342 104007 ERROR 7 :VECTOR ADDR MEM ERROR 
1124 007344 062737 000004 002124 17$: ADD #4, SGDDAT 
1125 007352 062704 000002 ADD #2 ,R4 ;NEXT BUFFER ADDRESS 
1126 007356 005302 DEC Re ;COMPLETED 64 BUFFER CHECKS? 
1127 007360 001360 BNE 16$ ;CHECK NEXT VECTOR BUFFER LOCATION 
1128 ; THAT WAS STORED BY THE INTERRUPT 
4 1€> ;SERVICE ROUTINES. 
11317 SLR ERE EAERERERAEEEEERAAEEEERKERE REREAD 
1132 ;*TEST 6 TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 
1133 SL RARER ARERR AERA AREER AEEEEEEAERAARETE REA RE ARERR Tee 
1134 007362 000004 TST6: SCOPE 
1135 ;BYTE COUNT = 
1136 ;LEVELS = 0-7 
1137 007 004537 010650 JSR R5,CLRCSR :CLEAR ALL CSRS 
1138 007370 004557 011144 JSR R5, CLRBF > CLEAR VECTOR BUFFER AREA 
1139 007374 004537 011334 JSR RS, TRPCAT sRESTORE TRAP CATCHER 
1140 007400 0045357 011110 JSR RS, STRVEC ;STORE VECTOR AREA 300-674 
1141 ;WITH INT. SERV ROUTINES 
1142 007404 012737 000377 002456 MOV #377, VECVAL :VECTOR MEM FINAL VALUE 
1143 007412 004537 010730 JSR RS,CLRIRR 7CLEAR IRR REGS 
1144 007416 012704 017116 MOV #VBUF RS : VECTOR ADDRESS BUFFER 
1145 007422 004537 010766 JSR RS, VECF IL sFILL VECTOR MEMORY FOR GROUPS 1,2 
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CVDRDA.P11 21-0CT=79 13:1 16 TEST VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 
1146 : WITH VECTORS 300-674 
1147 007426 013700 002412 MOV DRCSA,RO -GROUP 1 CSR 
1148 007432 013701 002422 MOV DRCSC,R1 =GROUP 2 CSR 
1149 007436 013702 002416 MOV DRCSB,R2 
1150 007442 013703 002426 MOV DRCSD.R3 
1151 007446 010037 002122 MOV RO, SBDADR : STORE BUS ADDRESS 
1152 007452 012737 000010 002474 MOV #8. ,LVLSAV -COUNTER FOR 7 LEVELS 
1153 007460 112710 000201 MOVB #201, (RO) “ROTATING PRIORITY GROUP 1 
1154 007464 112710 000040 MOVB  #CIMR. (RO) “CLEAR ALL IMR BITS GP1 
1155 007470 005037 002436 CLR INTFLG “CLEAR INT. FLAG 
1156 007474 106427 000000 MTPS  #PRO 
1157 007500 112710 000120 MOVB  #SIRR. (RO) :SET ALL IRR BITS 
1158 0075046 112710 000241 MOVB #241,(RO) “LMDS7 = ARM THE CHIP 
1159 007510 106427 000340 MIPS #340 
1160 007514 005737 002436 TST INTFLG :CHECK FOR NO INTERRUPTS 
1161 007520 001401 BEQ 1$ 
1162 007522 104011 ERROR 11 : ILLEGAL INTERRUPT 
1163 007524 005037 002436 1$: CLR INTFLG 
1164 007530 112711 000201 MOVB  #201,(R1) :ROTATING PRIORITY FOR GROUP 2 
1165 $34 112711 000040 MOVB  #CIMR,(R1) -CLEAR ALL IMR BITS GP2 
1166 007540 106427 000000 MTPS = #PRO 
1167 007544 112711 000120 MOVB #SIRR.(R1) :SET ALL IRR BITS 
1168 007550 112711 000241 MOVS #241, (R1) “LMDS7 = ARM THE CHIP 
1169 007554 106427 000340 MIPS § #PR7 
1170 007560 005737 002436 TST INTFLG : CHECK FOR NO INTERRUPTS 
1171 007564 001401 BEQ $ 
1172 007566 104011 ERROR 11 : ILLEGAL INTERRUPT 
1173 007570 005037 002436 2$: CLR INTFLG 
1174 007574 106427 000000 MIPS §#PRO 
1175 007600 152760 000002 009001 BISB  #BIT1,1(RO) :SET INT. ENABLE.EXPECT INTERRUPTS 
1176 007606 012737 000004 002124 MOV #4, $GDDAT “EXPECT 4 INTERRUPTS 
1177. 007614 013737 002436 002126 MOV INTFLG,$BDDAT :SHOULD HAVE 4 INTERRUPTS 
1178 007622 106427 000340 MTPS = #PR? 
1179 007626 023737 002124 002126 CMP SGDDAT, $BDDAT 
1180 007634 001401 BEQ 100$ 
1181 007636 104012 ERROR 12 : INTERRUPT TEST ERR 
1182 007640 112710 000140 100$: MOVB  #CHPISR, (RO) =CLEAR HIGHEST PRIORITY ISR 
1183 007644 112710 000120 MOVB = #SIRR, (RO) “SET ALL IRR BITS 
1184 007650 005337 002474 DEC LVLSAV -DONE 8 LEVELS,GROUP 1 
1185 007654 001345 BNE 2$ “DO NEXT LEVEL IN ROTATION 
1186 007656 112710 000100 MOVB  #CIRR.(RO) :CLEAR IRR BITS GROUP 1 
1187 007662 012737 000010 002474 MOV #8. .LVLSAV “DO 8 LEVELS, GROUP 2 
1188 007670 005037 002436 101$: CLR INTFLG “CLEAR INT FLAG 
1189 007674 106427 000000 MTPS  #PRO 
1190 012737 000004 002124 MOV #4, $GDDAT ! 
1191 013737 002436 002126 MOV INTFLG,$BDDAT  ;:SHOULD HAVE FOUR INTERRUPTS 
1192 007714 106427 000340 MIPS #PR7 
1193 007720 023737 002124 002126 CMP SGDDAT, SBDDAT 
1194 007726 001401 BEQ 102$ 
1195 007730 104012 ERROR 12 ; INTERRUPT TEST ERROR 
1196 007732 112711 000140 102$: MOVB  #CHPISR,(R1) CLEAR HIGHEST PRIORITY ISR 
1197 007736 112711 000720 MOVE  #SIRR,.(R1) “SET ALL IRR BITS 
1198 007742 005337 002474 DEC LVLSAV “DONE 8 LEVELS? 
1199 007746 001350 BNE 101$ *DO NEXT LEVEL IN ROTATION, GP2 
1200 007750 112711 00C100 MOVB  #CIRR.(R1) “CLEAR IRR BITS,GROUP 2 
1201 007754 012737 101750 002124 3$: MOV #101750. $GDDAT :RDY.DIR.I/E.CHIP - 35X 
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DRV11J DIAG TST PRT2 MACY11 30A(1052) 62} -0C Ts -79 13:38 ’ pace 26 
P11 21=GCT=79 13:19 T6 T VECTOR ADDR UNIQUENESS IN ROTATING MODE FOR GRPS 1,2 
007762 010037 002122 MOV = (SRA 
007766 011037 002126 MOV ORO} $0041 
007772 042737 000007 002126 BIC #7, SBDDA :CLEAR UNDEFINED BITS 
010000 023737 002124 002126 CMP $GDDAT, SADDAT 
010006 001401 BEQ 4$ 
010010 10400 ERROR 2 :CSRA REG ERROR 
010012 012737 000350 002124 4$: MOV #350, $GDDAT “STORE EXPECTED 
010020 010137 002122 MOV R1,$BDADR =CSRC 
010024 011137 002126 MOV (Ri), SBDDAT an 
010030 042737 000007 002126 BIC #7. SBDDA | sCLEAR UNDEFINED BITS 
010036 023737 002124 002126 CMP SGDDAT, SEDDAT 
010044 001401 BEQ 5$ 
010046 104002 ERROR 2 ;CSRC ERROR 
010050 010237 002122 S$: MOV R2,$8DADR ;CSRB ADDRESS 
010056 005037 002126 CLR SBDDAT 
01 005037 002124 CLR SGDDAT | 
010064 112710 000240 MOVB #MISR, (RO) :READ ISR 
010070 111237 002126 MOVB  (R2) ,$BDDAT 
010074 023737 002124 002126 CMP SGDDAT, SDDAT 
010102 001401 BEQ 6$ 
010104 104 ERROR 6 : ISR een. GP1 
010106 112710 000244 6$: MOVB #MIMR, (RO) “MODE BITS FOR IMR 
010112 111237 002126 MOVB  (R2).$BDDAT 5 
010116 023737 002124 002126 CMP = SGDDAT,Sappatr | | 
010124 001401 BEQ 7$ 
010126 104005 ERROR 5 » = MR ERROR. GP1 
010130 112710 000250 7$: MOVB #MIRR. (RO). ;MODE SITH FOR IRR 
010134 111237 002126 MOVB  (R2),$BDDAT i 
010140 023737 002124 002126 CMP SGDDAT , SBDDAT, | | 
010146 001401 BEQ 10$ r 
010150 104003 ERROR 3 e ERROR 
010152 112710 000254 10$:  MOVB  #MACR, (RO) D ACR | 
010156 111237 002126 MOVB _(R2), $8DDAT 
010162 023737 002124 002126 CMP SGDDAT, $BDDA 
010170 001401 BEQ 11$ 
010172 104004 ERROR 4 
010174 010337 002122 11$: MOV R3, $BDADR 
010200 112711 000240 MOVB  #MISR,(R1) 
010204 111337 002126 MOVB _ (R3), $BDDAT 
010210 023737 062124 002126 CMP SGDDAT, SBDDAT ) 
010216 001401 BEQ 12$ 
010220 104006 ERROR 6 
010222 112711 000244 12$: MOVB  #MIMR,(R1) 
010206 111337 00212€ MOVB _ (R3) , $BDDAT 
0 023737 002124 002126 CMP $GDDAT . SBDDAT 
010240 001401 BEQ 13$ 
010242 104005 ERROR 
010244 112711 000250 13$: MOVB A#MIRR, (R11) 
010250 111337 002126 MOVB —- (R3) , $ADDAT | 
10254 023737 002124 002126 CMP SGDDAT , SBDDAT 
10264 001401 Q 14$ | 
010264 104003 ERROR . 3 tf 
10266 112711 000254 14$: ‘MOVB . #MACR (RID thy ACR 
010272 111337 002126 -MOVB ' (R3),$BDDA 
010276 023737 002124 002126 CMP SGDDAT, SBDDAT : 
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CVDRDA DRV11J DIAG TST PRT2 MACY11 30A(1052) 21-OCT-79 z, 
CVDRDA.P11 =. 21-0 T=-79 13:19 T6 TEST VECTOR ADDR UNIQUENESS IN ROTA “ee MODE FOR GRPS 1,2 
1258 010304 001401 BEA 2008 » jie 
1259 010 104004 . ERROR | sACR ERR 
1260 010310 105010 2008:  CLRB (Ro) :IN J) GROUP fl MODE BITS 
1261 010312 105011 CLRB GROUP 2 MODE BITS 
1262 010314 012737 101700 00212¢ MOV #01700, $GpDaT|. 
1263 010322 010037 002122 , MOV SADADR 
1264 010326 011037 002126 MOV (RO), SBDDAT iv 
1265 010332 042737 000007 002126 BIC!  #7,$BDDAT: pirat 
1266 010340 023737 002124 002126 CMP SGDDAT , SBDDAT ! 
1267 010346 00140 bo BEG. 2078 | i 
1268 010350 ER 2iig. :CSRA 
1269 010352 01273? 000200 002124) 201$: Mow’  #200)$G AT 
1270 010360 010137 002122 MOV R1,$BDADR 
1271 010364 011137 002126 ) MOV (R1)), SADDAT 
1272 010370 273 002126 . BIC #7 , SBDDAT 
1273 010376 023737 002124 002126 cme) $GbDAT. SBDDAT 
1274 0104 140 | 'BEQ) ! 1p . | 
157 B10490 OF5905 000100 ; | 158: ! move’ Real LR te 
1277 617116 Hl. | MOV, » MVSUF, an vecrdh BUFFER’) 
1578 300 !h002124 jovi | #300. sepedr ||| seiut wate Gane VECTOR 300 
1279 002122) 9, I), ik : MOV, R4,SBDADR : VEC TOR) BUF FER, ADDRE 
1280 002126}, | Mov’ | (R4),SBDDAT | ony 
1281 002124) 002126 | ‘MP’ = $GLDAT, SBDDAT i” 
1282 1 hte Ab BEQ 17$ ' -;VECTORED 
1283 dee ‘ERROR 7 ope) |) av VECTOR »ADD; 
1284 209004 002124 }17$: , ADD, #4,SGDDAT L, 
1285 002) yl ADD '| M2.B6 XT) BUFFER. ADDRESS 
1286 ai £ DEC | PR2 cal TED 64 BURFER 
1287 oy BNE ' » 16$ ; CHE CK, NEXT, \VEC 
1288 | | : a a ; c THAT WAS S 
1289 ) sl 5 fash ROUT INES 
is ' | | _o @ ’ ' | ; 1} 1 | 
1292 | ON? T, REPORT ‘END OF PASS' WNT L ALL SELECTED DRV10J°S HAVE BEEN TESTED. 
1293 002412, | iKDEY )\DRCSA,R1 SIN ify 10! SETUP_DRV11J ADDRESS, 
1294 { NXDEV1: Cac re’ By. | U2CLE gt aon RVI | lift 
1295 ! pgm a wee pwP, lg) DR ¥ i 
1296 ! ts | | *-  BEQ . $EOP) | 4 “AR IF Att eee 
1297! 162701) 000020, | SUB |, . #20,R1) tne Ferd ARTS: hy eon PAST CSR 
1298 010506 008237 002202. — INC |) SUNT ‘ie 
1299 010512 032737 000001, 002434 ‘. BIT | _#?, DMAP | ae UNIT sELer 
1300 , 010520 001764 BEQ '} ‘NXDEVI yw” 
1307 010522 000137 003132), i Red | NEXPAS ny EXT Ni . | 
1502) ;)». ' ru | | | ) ny. | : 
1303, \) om ita .SBTTL " END OF rd BAL Ht » 
1305, © » - = ' ss OM ald Ae uaeiamea A CAVC IC HE ake een e eens 
1307), | AT ) TPE EN PASS. PROX eRe a Ade IMAL Newen} |) 
' \** 
1308 Bit i flERtS 10 iT . y 
1309) | ity ny | Sel ri A Kray TO START) , | 
1310 | ai [pt ! | rele, ‘ ay {" 
1311, }010526 "" *, cre tN ‘| Pi | / rn : | 
1312, ° 010526 240 | | ' Ms | , af 
1313 |' 010530 0505 002102, | eR ee : Eno (e NUMBER 
a ) } .4 | ) ' + ' 
Aaah Bid : | yh | vA an : | 
“| aw!’ ' \? ' roy \' 4 Po ‘oy as 
‘| ) | F \ : ’ t | A i os I, | | | | 
Hy) : gh! "ae ! 
et Ve Pip ahs, ha 
», ' i , j ri ; ¢ ' ‘ A 
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MACY11 30A(1052) >1-0¢4279)! hs: salpace 2s) ou batt ‘} PAGE: 0037. 
ND! OF rN Ua OUTINE P ie auf | > : ff | 
whose Neual ” | STUMES ' 4 33 TERO Hee hae OF LTERAT 
\ ti) ) INC, ASS 6 FE ANGRERENT ATHE PASS NUMBER 
Qoz176 |") | |) BIG). #00000, nad 
’ SEdACT: HORD) fr TT | 
) I pot eer. Sp0AGK ||, Y) RY 
Jr, MOMay) | SPC) + -@eRCds fine rt 
SENDCT: LWORD Lhe r 
, | 1 $eoPCT 1+ §” bef 
fl) TYPE oD OSE mG rf. E 
ab MOV ASS,= (SP) 
ULE ees) Ceemal || steps 
} fh ° ? 
} $GAT42: MOV 42, a 
ae | Pi Reser | 4: 
| tT’ JSR PC, (RO JG iT0 FOL 
) NOP , J; SAV j Act 
, . Nop} ! ; . ee | | mi 4 ; 
$DOAGN: ) 7 Ny ‘he Se | : 
| JMP a(PC)+ 3 ;RETURN An, ay , th ’ ) i { 
.WORD START i fo | | ry | 
BYTE <-1,-1,0 szNULL CHARACT Ry STR NG ' ! ae ive ee 
: “ASCIZ <15><12>/END PASS #/ f | b 7 ' » | 
mts | v , 
Lh ' / yy - 4 te | 
, 4 | 
ay aa 
? } ’ 
Hh. " , 
pres ’ 
' ¢ I q 
Bi ’ 
Rhy 
¥ 
} 
} 
L 
ay 
» ( l ' 
- , 
é - , 
1 ¥ 


/ 


" ? 


, 


} | 





1345 


cme ee ee mee ee ee me ee em ee ee ee ee ee ee ee ee ed eed ed td ed ed wd od 
SERRE RRRER LS toe 
BBIAARANISS a 


SESEREFES SS 


AAW WNES 
KARAS 


4 
: 


Pi) 

34h 
' 1343 
WR44 







O10754 
010726 


052 
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C\VDRDA ,  el-OcT=79 13:1 


MACY11 30A(1052) 
PRO 


002456 
002452 


000001 


M 3 ee . 
21-0CT=79 13:38! PAGE 29 M cm 
GRAM SUBROUTINES | ye ip , 


.SBTTL PROGRAM SUBROUTINES) | i 
\" y lh We A 


' 
IN ** A A 


; CLEAR ALL CONTROL/STATUS REGISTERS 5) joy 


SRE REE EERE EERE ERE slelol 6) OF Me RAN ULB 






tiRCSR: MOV RO, 5 (SPH ); SAVE? RO 
MIPS § #PR7 =PSW =, 340 
MOV #PVMA, VECVAL “INIT VECTOR 
MOV #300, VECLOC INIT VECTOR ADDR TO 3 
MOV DRCSA,R -START OF CSR’ 
CLR $GDDA : CLEAR EXPECTED | 
CLR SBDDAT =CLEAR REC'D . 
CLR (RO) :CLEAR CSRA: CHIP RESET¥GROUP 1 
CLRB = 5(RO) -CLEAR HIGH BYTE'CSRB 
CLR 10(RO) :CLEAR CSRC; CMP RESET/)GROUP 2 
CLRB —«-15(RO) :CLEAR HIGH BITE 'GSRD 
MOV (SP)+,RO * RE TURNG RO 
RTS R5 ' 
‘i a Pi 
;CLEAR IRR REGISTERS,GROUP 1,GROUP 2 WITH IP. RE 
CLRIRR: MOV RO, -(SP) 
MOV DRCSA,RO “START OF CSR hoor 
CLRB  ~—s«-. 11(RO) =CSRC TO INPUT “OE 
MOVB #BITO,1(RO) -CSRA TO OUTPUT MODE 
CLR 2(RO) *CLEAR DBRA 
CLRB (RO) -CHIP RESET OF GROUP 
CLRB —«-10RO) “CHIP RESET OF GROUP 2 
MOV (SP)+,RO “RESTORE REGISTER 
RTS R5 “EXIT 
:ROUTINE TO FILL VECTOR MEMORY FOR VECTOR UNIQUENESS TEST 
* 300-474 GROUP 1 
=5C0-674 GROUP 2 
VECFIL: MOV DRCSA,RO :START GROUP 1 
MOV DRCSB,R1 
MOV 2.R2 :TwO GROUPS 
MOV #60. VECPAT “VECTOR START 300 
1$: MOV #370, VECVAL “START VECTOR LEVEL 0.BY4 
MOV #8. ,LVLCNT “LEVELS 0-7 
2$: MOVB -—«*VECVAL,” (RO) 
MOV #4 ,BYCNT :DO FOUR BYTE COUNTS 
3$: MOVB «VEC PAT,, (R1) “WRITE VECTOR 
INC VECPAT :SETUP FOR NEXT VECTOR 
DEC BYCNT =DONE FOUR BYTE COUNTS? 
BNE 3$ -DO NEXT VECTOR 
4$: DEC LVLCNT “DONE ALL LEVELS IN GROUP? 
INC VECVAL s INC NEXT LEVEL 
BR 2$ :DO NEXT LEVEL 
S$: DEC R2 :DONE BOTH GROUPS? 
BEQ 6$ DONE ,EXIT 
MOV DRCSC,RO “DO GROUP 2 


MOV DRCSD,R1 
BR 1$ 


PAGE : 
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CVDRDA.P11 
1397 011106 
1398 
1399 
1400 011110 
1401 011114 
1402 011120 
1403 011124 
1404 011126 
1405 011132 

406 011136 
1407 011140 
1408 011142 
1409 
1410 
1411 011144 
1412 011150 
14135 011154 
1414 011156 
1415 011160 
1416 011162 
1417 
1418 
1419 

420° 011164 
1421 011166 
1422 011172 
14235 011174 
1424 011200 
1425 011202 
1426 
1427 
1428 
1429 011204 
1430 011206 
1431 011210 
1432 011212 
1433 011216 
1434 011220 
1435 011224 

436 011226 
1437 011234 

438 011236 
1439 011240 
1440 
1441 
1442 011242 
1443 011250 
1444 011252 
1445 011260 
1446 011262 
1447 011270 
1448 011274 
1449 011276 
1450 011304 
1451 011306 
1452 011312 


000205 
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000300 
012044 
000100 


000340 
000006 


017116 
000100 


016712 
000204 


016712 
000204 
002460 


000001 
010000 


000002 
002452 
000002 
011562 


MACY11 "ee 
PROGRAM 


170704 


002210 
170660 
002452 


002452 


N 3 
13:38 PAGE 30 


21=0CT=79 PAGE : 
AM SUBROUTINES 
6$: RTS R5 sEXIT 
:ROUTINE TO STORE VECTOR AREA 300-674 WITH INTERRUPT SERVICE 
STRVEC: MOV #300.RO :START AT VECTOR 300 
MOV PINTO. R1 cE IRS! SERVICE ROUTINE 
MOV #64.,R STORE 64 SERVICE ROUTINES 
1$: MOV R1,(RO)+ 
MOV #340, (RO)+ 
ADD #6,R) :SETUP FOR NEXT VECTOR STORAGE 
DEC R2 “DONE WITH 64 VECTOR ROUTINES? 
BNE 1$ 
RTS R5 sEXIT 
:ROUTINE TO CLEAR VECTOR BUFFER 
CLRBF: MOV #VBUF .RO :VECTOR BUFFER START 
MOV #64..R1 
1$: CLR (RO) + 
DEC R1 
BNE 1$ 
RTS R5 


sROUTINE TO STORE 0-202 INTO BUFFER AREA TO ALLOW 
he tng TESTS TO — 


CLR 
MOV #DBUF ,R1 ;BUFFER S 
1$: MOV (RO)+,(R1)+ STORE 0-202, INTO BUFFER 
CMP #204,R0 :F INI SHED? 
BNE 1$ :NO 
RTS R5 RETURN 


;STORE BUFFER AREA INTO LOCATIONS 0-202 
sAFTER VECTOR TESTS 


FRMBUF : MOV RO,-(SP) ;SAVE RO 
MOV R1,-(SP) 
CLR RO 
MOV #DBUF ,R1 sBUFFER START 
1$ MOV (R1)+,(RO)+ ;STORE BUFFER INTO LOCS 0-202 
CMP #204,R0 FINISHED? 
BNE 1$ =NO 
MOV SWRSAV,a@SWR :STORE LOCATION 176,SOFT SwWR 
MOV (SP)+,R1 *REST ORE R1 
MOV (SP)+,RO -RESTORE RO 
RTS R5 *RETURN 
sRESTORE VECTOR JUST TESTED TO ORIGINAL TRAP FOR 204-1774 
RESTRP: CMP #1,SENV : CHECK FOR APT 
BEQ 1$ > YES,BRANCH 
BIT #SW12,@SWR * CHECK TYPE OF TRAP RETURN 
BEQ 10$ RESTORE ILLEGAL VECTOR ROUTINE 
ADD #2,VECLOC “RESTORE TRAP 
MOV VECLOC, (R3)+ ;TO VECTOR | 
CLR (R2 RESTORE HALT . 
ADD ue. VECLOC :SE TUP FOR NEXT 
BR sRETURN 
10$: MOV : (R3)+ sRESTORE ILLEGAL TRAP ROUTINE 


_ BR 118 sRESTORE PSw 


0039 
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CVDRDA.P11 21-0CT=79 13:19 PROGRAM SUBROUTINES 
1453 011314 012723 011544 1$: MOV #TRPOUT, (R3) + :RESTORE A APT SUB TRAP 
1455 011320 012713 000340 11$: MOV #340, (R3) “RESTORE Psu SAVE 
1456 011324 062737 000004 002452 ADD #4, VECLOC “\PDATE FOR NEXT VECTOR 
py 2 011332 000205 2$: RTS R5 3. =TURN 
1459 ; ROUT INE TO SET UP TRAP CATCHER 204-1774 IN STANDALONE MODE OR 
1460 A COMMON VECTOR ROUTINE SETUP UNDER 
1461 -VECTOR ROUTINE IS USED ONLY IN AN wT ENVIRONMENT AND WILL STORE 
\46e =A COMMON SUBROUTINE IN VECTOR AREA 204-1774. 
1464 911334 010046 TRPCAT: MOV RO,-(SP) = SAVE RO 
1465 011336 010146 MOV R1,-(SP) 
1466 811340 022737 000001 002210 CMP #1, SENV :CHECK FOR APT 
1467 011346 001426 BEQ APTVEC -YES,SET UP TRAPS FOR APT 
1468 011350 012700 000204 MOV #204.RO “START CATCHER AT 204 
1469 011354 032777 910000 170556 BIT #SW12,aSWR -TEST IF SW12 IS SET 
1470 011362 001010 BNE 1$ -YES,BR AND STORE REGULAR TRAP 
1471 = CATCHER(.+2,HALT) IN LOCATIONS 
1472 = 204-1774 
1473 011364 012720 011562 11$: MOV #TRPALL,(RO)+  :NO,PLACE ILLEGAL VECTOR RETURN 
1474 011370 012720 000340 MOV #340, (RO) + “ROUTINES IN LOCATIONS 204-1774 
1475 011374 022700 002000 CMP #2000,R0 - =STORED ALL VECTORS? 
1476 011400 001371 BNE 11$ 
1477 011402 000421 BR END TRP :RETURN AFTER VECTOR STORAGE 
1478 011404 010001 1$: MOV RO.R1 “DRV11J CAN VECTOR 0-1774 
1479 011406 005721 TST (Ri) + 
1480 011410 010120 MOV R1, (RO) + 
1481 011412 005020 CLR (RO) + 
1482 011414 022701 001774 CMP #1776.R1 :CHECK FOR VECTOR END 
1483 011420 001371 BNE 1$ 
1484 011422 000411 BR END TRP :RETURN IN STAND ALONE MODE 
1485 011424 012701 000204 APTVE . MOV #204,R1 = STARTING VECTOR ADDRESS 
1486 011430 012721 011544 1$: MOV #TRPOUT.(R1)+  <ILL INTERRUPT ROUTINE 
1487 011434 012721 000340 MOV #340, (R1)+ *PSW NEXT 
1488 011440 022701 002000 CMP #2000, R1 = DONE ? 
1489 011444 001371 BNE *DO NEXT VECTOR 
1490 011446 012601 ENDTRP: MOV }; R1 
1491 011450 012600 MOV (SP) +.RO 
1492 011452 000205 RTS R5 sEXIT 
1494 : INTERR'IPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 204-1774 
1495 011454 005237 002436 INTSR1 INC INTFLG =COUNT INTERRUPT 
1496 011460 012737 000001 002124 MOV #1, $GDDAT -STORE EXPECTED 
1497 011466 013737 002436 002126 MOV INTFLG,$BDDAT :SAVE INT. COUNT 
1498 011474 023737 002124 002126 CMP $GDDAT.$BDDAT :SHOULD BE ONE INTERRUPT 
1499 011502 001401 BEQ 1$ 
1500 011504 104013 ERROR 13 ;MULTIPLE INTERRUPTS RECEIVED 
1301 011506 000002 1$: RT] -RETURN FROM INT. 
1503 : INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 204-1774 
1504 :FOR A BYTE COUNT OF 1 TO 4 VECTORS IN VECTOR ADDR MEMORY. 
1505 011510 005237 002436 INTBY4: INC INTFLG :COUNT INTERRUPT 
1506 011514 013737 002472 002124 MOV BYNUM, SGDDAT  :STORE EXPECTED 
1507 011522 013737 002436 002126 MOV INTFLG,$BDDAT = :SAVE INT. COUNT 
1508 011530 023737 002124 002126 CMP $GDDAT.$BDDAT = :INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 
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; INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 0-200,RYTE COUNT 0-% 
;FOR BYTE COUNTS OF 1 TO 4 VECTORS IN VECTOR ADDRESS MEMORY. 


1509 011536 002001 BGE 1$ 

1510 011540 104013 ERROR 13 :MULTIPLE INTERRUPTS RECEIVED 
1511 “MORE INTERRUPTS THAN BYTE COUNT 
1512 011542 000002 1$: QT] “RETURN FROM INT. 

1514 :COMMON ILLEGAL VECTOR RETURN ROUTINE FOR APT MODE. 

1515 011544 011637 002120 TRPOUT: MOV (SP) , $GDADR :SAVE ADDRESS OF TEST 

1516 911550 004537 011204 JSR R5. FRMBUF “RETURN LOCATIONS 0-202 

1517 011554 104014 ERROR 14 -ILLEGAL VECTOR ADDR MEM ERROR 
1518 011556 000000 HALT -CANNOT CONTINUE 

1319 011560 000000 HALT = CANNOT CONTINUE 

1521 :COMMON ILLEGAL VECTOR RETURN ROUTINE FOR VECTOR AREA 

1522 = 204-1774 

1523 011562 011637 002120 TRPALL: MOV (SP) , S$GDADR :SAVE PC OF TEST 

1524 011566 104014 ERROR 14 “ILLEGAL VECTOR ADDR MEM ERROR 
1525 011570 000002 RT] RETURN 

1527 :RESTORE VECTOR JUST TESTED TO ERROR SUBROUTINE FOR 0-202 

1528 011572 022737 000001 002210 RES200: CMP #1, SENV = CHECK FOR APT 

1529 011600 001405 BEQ 1$ - YES, BRANCH 

1530 011602 012723 012000 MOV #TRP200,(R3)+ ERROR TRAP SUB. FOR 0-200 
1531 011606 012713 000340 MOV #340, (R3) =PSW 

1532 011612 000404 . BR 2$ RETURN 

1533 011614 012723 011544 1$: MOV #TRPOUT, (R3) + :RESTORE APT SUB TRAP 

1535 011620 012713 000340 MOV #340, (R3) “RESTORE PSW SAVE 

153% 011624 062737 000004 002452 28: ADD #4, VECLOC “UPDATE FOR NEXT VECTOR 

1537 011632 000205 RTS R5 RETURN 

1539 :ROUTINE TO SET UP TRAP SUBROUTINE 0-200 IN STANDALONE MODE OR , 
1540 =A COMMON ERROR VECTOR ROUTINE SETUP UNDER APT. ; 
1542 011634 010046 CAT200: MOV RO,-(SP) :SAVE RO 

1543 011636 017737 170276 002460 MOV aSWR, SWRSAV =SAVE LOCATION 176,SOFT SwR 
1544 011644 022737: 000001 002210 CMP #1, SENV =CHECK FOR APT 

1545 011652 001411 BEQ APT 200 -YES,SET UP TRAPS FOR APT 

1546 011654 00500G CLR RO =START CATCHER SUB AT 0 

1547 011656 012720 012000 1$: MOV #TRP200.(RO)+  =:STORE VECTOR TRAP SUBROUTINE 
1548 011662 212720 000340 MOV #340, (RO)+ =PSWW 

1549 011666 022700 000204 CMP #204 ,RO -FINISHED 0-202 

1550 011672 001371 BNE 1$ 

1551 011674 000410 BR END200 :RETURN IN STAND ALONE MODE 
1552 011676 005000 APT200: CLR RO >START AT VECTOR 0 

1553 011700 012720 011544 1$: MOV #TRPOUT,(RO)+  =VECTOR ERROR ROUTINE 

1554 011704 012720 000340 MOV #340, (RO) + “PS NEXT 

1555 011710 022700 000204 CMP #204 ,RO = DONE ? 

1556 011714 001371 BNE 1$ “DO NEXT VECTOR 

1557 031716 012600 END200: MOV (SP)+,RO 

1558 011720 012713 0117364 MOV #INTSR3, (R3) -STORE VECTOR ROUTINE 

1559 011724 012763 000340 000002 MOV #340,2(R3) -STORE PSWw 

! 011732 000205 RTS R5 “EXIT 

1 

7 
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002120 
011204 
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0024 36 
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PROGRAM SUBROUTINES 


INTSRS: 


1$: 


; COMMON 
TRP200: 


; VECTOR 
SETVEC: 


i$: 


; INTERRUPT SERVICE ROUTINES THAT ARE STORED FROM 300-674 
iIN THE V _ UNIQUENESS TEST. 


INT1: 
INT: 
INTS: 
INTS: 
INTS: 
INT6: 
INT?: 
INT8: 
INTY: 
INT10: 
INT11: 
INT12: 
INT13: 


INC 


MOV 


Sle kk eeeeeeee=eEeE=0Q 
21-0CT=79 
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INTFLG ;COUNT INTERRUPT 

BYNUM, SGDDAT :STORE EXPECTED 

INTFLG,$BDDAT  ;SAVE INT. COUNT 

ne ; INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 
R5 , FRMAUF ;RESTORE 0-202 BEFORE ERROR 


15 SMULTIPLE INTERRUPTS RECEIVED 

;MORE INTERRUPTS THAN BYTE COUNT 
R5,CAT200 sRESTORE VECTOR SUBROUTINES 
;RETURN FROM INT. 


VECTOR ERROR RETURN ROUTINE FOR 0-200 


(SP) , SGDADR ;SAVE PC OF TEST 

R5 ,FRMBUF ;RETURN LOC 0-200 

14 ; ILLEGAL VECTOR ADDR MEM ERROR 
R5,CAT200 


:RESTORE VECTOR SUBROUTINES FOR PROCEED 


ROUTINE FOR VECTOR UNIQUENESS TEST 


(R5)+,(R4)+ ;STORE VALUE IN BUFFER 

(SP) + SRESTORE STACK FOR RTI 

INTFLG ;COUNT INTERRUPT 

#64. ,INTFLG 

1$ 364 EXPECTED INTERRUPTS? 

13 ;ERROR ,MORE THAN 64 INTERRUPTS 


;RETURN FOR NEXT INTERRUPT 


RS ,SETVEC ;STORE 300 INTO VBUF,TO BE 
;CHECKED AFTER ALL INTERRUPTS. 


R5,SETVEC e ;VECTOR UNIQUENESS TEST, INT. SERV RIN 


R5,SETVEC ; VECTOR UNIQUENESS TEST, INT. SERV RIN 
R5,SETVEC ; VECTOR UNIQUENESS TEST, INT. SERV RIN 
R5,SETVEC ;VECTOR UNIQUENESS TEST, INT. SER’ RIN 
RS ,SETVEC :VECTOR UNIQUENESS TEST, INT. SERV RIN 
R5,SETVEC ; VECTOR UNIQUENESS TEST, INT. SERV RTN 
R5,SETVEC ; VECTOR UNIQUENESS TEST, INT. SERV RTN 
RS, SETVEC ;VECTOR UNIQUENESS,TEST, INT. SERV RIN 
R5,SETVEC ;VECTOR UNIQUENESS TEST, INT. SERV RIN 
R5,SETVEC ; VECTOR UNIQUENESS TEST, INT. SERV RIN 
R5,SETVEC :VECTCR UNIGUENESS TEST, INT. SERV RIN 
R5,SETVEC 7VECTOR UNIG CNESS TEST, INT. SERV RIN 
R5, SETVEC ;VECTOR UNIQUENESS TEST, INT. SERV RIN 


DRV11J 
PT 


012432 


DIA 
21 


012020 
012020 
012020 
012020 
012020 
012020 
012020 
012020 
012020 
012020 
012020 
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012020 
012020 
012020 
012020 
012620 
072020 
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PROGRAM SUBROUTINES 


INT14: 
INTIS: 
INT16: 
INT17: 
INT18: 
INT19: 
INT20: 
INT21: 
INT22: 
INT23: 
INT24: 
INT25: 
INT26: 
INT2?: 
INT28: 
INT29: 
INT30: 
INT31: 
INT32: 
INT33: 
INT34: 
INT35: 
INT 36 
INT37: 
INT 38: 
INT39: 
INTGO: 
INTG1: 


RS, SETVEC 
RS, SETVEC 
R5,SETVEC 
R5,SETVEC 
RS, SETVEC 
R5,SETVEC 
R5,SETVEC 
RS, SETVEC 
R5.SETVEC 
RS, SETVEC 
R5, SETVEC 
RS, SETVEC 
RS, SETVEC 
R5,SETVEC 
RS, SETVEC. 
RS. SETVEC 
RS. SETVEC 
RS, SETVEC 
R5,SETVEC 
RS. SETVEC 
RS, SETVEC 
RS, SETVEC 
RS, SETVEC 
RS, SETVEC 
RS, SETVEC 
RS, SETVEC 
RS, SETVEC 
RS. SETVEC 
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; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
: VECTOR 
; VECTOR 
: VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
: VECTOR 
; VECTOR 
: VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
; VECTOR 
7 VECTOR 
: VECTOR 
; VECTOR 
VECTOR 
VECTOR 
: VECTOR 


UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNIQUENESS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UN! QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNIQUENESS 
UNJ QUENE SS 
UNI QUENE SS 
UN] QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 
UNI QUENE SS 


TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 





RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RIN 
RIN 
RTN 
RTN 
RTN 
RTN 
RTN 


; RTN 


RT™N 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
RTN 
R™N 
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1677 012436 000544 544 

1678 012440 006537 012020 INT42: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RIN 

1679 012444 000550 550 

1680 0124466 006537 012020 INTG3: JSR RS, SETVEC : VECTOR UNIQUENESS TEST, INT. SERV RTN 

1681 012452 000554 554 

1682 012454 004537 012020 INT44: JSR RS. SETVEC : VECTOR UNIQUENESS TEST, INT. SERV RIN 

1683 012460 000560 560 | 

1684 012462 004537 012020 INT4S: JSR RS, SETVEC :VECTOR UNIQUENESS TEST, INT. SERV RTN 

1685 012466 000564 564 | 

1686 012470 004537 012020 INT46: JSR RS, SEIVEC -VECTOR UNIQUENESS TEST, INT. SERV RTN | 
1687 012474 000570 570 ’ 

1688 012476 004537 012020 INT47: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RTN | 
1689 012502 000574 574 | 
1690 012504 004537 012020 INT48: JSR RS, SETVEC :VECTOR UNIQUENESS TEST, INT. SERV RIN | 
1691 012510 000600 600 | 
1692 012512 006537 012020 INT49: JSR RS, SETVEC VECTOR UNIQUENESS TEST. INT. SERV RIN 

1693 012516 000604 604 

1694 012520 004537 012020 INTSO: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RIN 

1695 012524 000610 610 

1696 012526 004537 012020 INTS1: JSR RS, SETVEC :VECTOR UNIQUENESS TEST, INT. SERV RIN 

1697 012532 000614 614 | 
1698 012534 004537 012020 INTS2: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RIN | 
1699 012540 000620 620 | 
1700 012542 004537 012020 INTS3: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RTN | 
1701 012546 000624 624 | 
1702. 012550 004537 012020 INTS4: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RTN | 
1703 012554 000630 630 

1704 012556 004537 012020 INTSS: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RTN 

1705 012562 000634 634 

1706 012564 004537 012020 INT56: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RTN 

1707 012570 000640 640 

1708 012572 004537 012020 INTS7: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RTN 

1709 012576 000644 644 

1710 012600 004537 012020 INTS8: JSR RS, SETVEC :VECTOR UNIQUENESS TEST. INT. SERV RTN 

1711 012604 000650 650 

1712 012606 004537 012020 INTS9: JSR RS. SETVEC VECTOR UNIQUENESS TEST. INT. SERV RTN 

1713 012612 000654 654 

1714 012614 004537 012020 INT60: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT. SERV RIN 

1715 012620 000660 660 ' 

1716 012622 004537 012020 INT61: JSR RS, SETVEC VECTOR UNIQUENESS TEST, INT! SERV RIN 

1717 012626 000664 664 ep 

1718 012630 004537 012020 INT62: JSR RS, SETVEC :VECTOR UNIQUENESS TEST, INT. SERV RTN 

1719 0612634 000670 670 

1720 012636 0604537 012020 INT63: JSR RS, SETVEC VECTOR UNIQUENESS TEST. INT. SERV RIN 

1721 012642 000674 674 | : 

C4, .SBITL PATTERNS FOR REGISTER R/W , 
1725 :PATTERNS USED FOR LOADING/READING REGISTERS 

1726 :1SR INTERRUPT SERVICE REGISTER 

1727 : IRR INTERRUPT REQUEST REGISTER 

1728 + MR INTERRUPT MASK REGISTER 

1730 012644 001 376 BGCHP3: .BYTE 1.376 

1731 012646 002 375 BYTE 2,375 

173. 072650 004 37 BYTE 4,373 
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CVDRDA P11 21-00 T=+79 13:19 PATTERNS FOR REGISTER R/W 
1733 012652 010 367 BYTE 10, 367 
1734 012654 020 357 BYTE 20,357 
1735 012656 Q 337 BYTE 40,337 
1737 012662 200 177 BYTE 200,177 
te 012664 000000 FDCHP?Z: 000009 
1740 
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CVDRDA DRV11J DIAG TST PRI? MACY11 30A(1052) 21-OCT-79 
CVDRDA.P11) =. 21*0CT+79 13:1 SYSMAC ROUTINES 
1%) .SBTTL SYSMAC ROUTINES 
1743 .SBTTL TYPE ROUTINE 
1745 SLR ERA REE ARR ARERAEERERERRAEEEREEEREEERERREEREEEREER EERE EH 
1746 : *ROUTINE 10 TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
1747 :*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
1748 : *NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
1749 ; *NOTE2 $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
1750 : *NOTE3 $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
1752 *CALL 
1753 1) USING A TRAP INSTRUCTION 
1754 TYPE = ,MESADR ;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
1755 :*0R 
1756 : TYPE 
1757 oa ME SADR 
1758 7° 
1759 
1760 012666 105737 002157 STYPE: TSTR  $TPFLG :1S THERE A TERMINAL? 
1761 012672 100002 BFL i$ TBR IF YES 
1762 012674 000000 HALT $THALT HERE IF NO TERMINAL 
1763 012676 000430 a 3$ ; LEAVE 
1764 012700 010046 1$: MOV RO,-(SP) 7: SAVE RO 
1765 012702 017600 000002 MOV a2(SP) RO ::GET ADDRESS OF ASCIZ STRING 
1766 012706 122737 000001 002210 CMPB = WAPTENV,SENV =; ; RUNNING IN APT MODE 
1767 012714 001011 BNE 62$ ;NO,GO CHECK FOR APT CONSOLE 
1768 012716 132737 000100 002211 BITB § #APTSPOOL.SENVM ::SPOOL MESSAGE TO AP 
1769 012724 001405 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
1770 012726 010037 012736 MOV RO,61$ ;: SETUP MESSAGE AD ADDRESS FOR APT 
1771 012732 004737 013156 JSR PC ,S$ATY3 2 SPOOL APT 
1772 012736 61$: .WORD 0 MESSAGE ADDRESS. 
1773 012740 132737 000040 002211 628: BITB § #APTCSUP,SENVM “TAPT CONSOLE SUPPRESSED 
1774 012746 001003 BNE 60$ 7c YES,SKIP TYPE OUT 
1775 012750 112046 2$: MOVB = (RO) +, =( SP) ; ;PUSH CHARACTER TO BE TYPED ONTO STACK 
1776 012752 001005 BNE 4$ :BR IF IT JSN'T.THE TERMINATOR 
1777 012754 005726 TST (SP)+ >: 1F TERMINATOR POP IT OFF THE STACK 
1778 012756 012600 60$: MOV (SP) +,RO ; ;RESTORE RO 
1779 012760 062716 000002 3$: ADD #2, (SP) ; ;ADJUS RETURN PC 
1780 012764 RTI ; RETURN, |: 
1781 012766 122716 000011 4$: CMPB ss #HT , (SP) ; ;BRANCH |I'F JKHT> 
1782 012772 0014 BEQ 8$ ag 
1783 012774 122716 000200 CMPB se # CRLF, (SP) ; ;RANGH | IF <ORLF > 
1784 013000 001 BNE 5$ | 
1785 013002 005726 TST (SP)+ ::POP “<CR><LF> EQUIV 
1786 013004 104401 TYPE :; TYPE A CR | 
1787 013006 002165 SCRLF : , 
1788 013010 105037 013144 CLRB $CHARCNT :: CLEAR CHARACTER (COUNT . 
1789 013014 755 Be 2$ ::GET NEXT CHARACTER 
1790 013016 737 013100 5$: JSR PC ,$TYPEC ££ 60 TYPE THIS CHARAC 
1791 013022 123726 002156 6$: CMPB ss SF ILL, (SP)+* >:1S IT TIME FOR FIULE CHARS. ? 
1792 013026 001350 BNE os F NO GO GET NEX ? 
1793 013030 013746 002154 MOV $NULL ,~ (SP) “GET # OF FILLER C -_ NEEDED 
1794 7;AND THE’ NULL CHAR, 
1795 013034 105366 000001 7$: DECB  ~—s_-1( SP) ; ;DOES A NULL NEED TO BE TYPED? 
1796 013060 002770 BLT 6$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 
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30A(1052) 21-0CT=79 PAGE : 

TYPE ROUTINE 
JSR PC $TYPEC ::G0 TYPE A NULL 
DECB $CHARCNT ::DO NOT COUNT AS A COUNT 
BR 7$ ;; LOOP 

-MORIZONTAL TAB PROCESSOR 

8$: MOVB #' ,(SP) ::REPLACE TAB WITH SPACE 

9$: JSR PC, ,$TYPEC s; TYPE A SPACE 
BITB #7, S$CHARCNT ; BRANCH IF NOT AT 
BNE 9$ >: TAB STOP 
TST (SP)+ -:POP SPACE OFF STACK 
sta) 2$ ::GET NEXT CHARACTER 

STYPEC: TSTB a$TPS *:WAIT UNTHE PRINTER IS READY 
BPL $TYPEC 
MOVB  2(SP),a$IPB :LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB ss ACR, 2 (SP) 1S CHARACTER A CARRIAGE RETURN? 
BNE 1$ ; ;BRANCH IF NO’ 
CLRB  $CHARCNT -YES==CLEAR CHARACTER COUNT 
BR $TYPEX “EXIT 

1$: CMPB ss ALF, 2 (SP) aa CHARACTER | A FEED? 
BEQ $TYPEX > =BRANCH IF YE 
INCB = (PC) 4 = COUNT THE cHARAC HER 

SCHARCNT:.WORD 0 ;; CHARACTER, ( STORAGE 

$TYPEX: RTS PC 

.SBTTL APT COMMUNICATIONS ROUTINE 

SORES SIIIEIOIUIIISISISIISIIII SIE IIEIDOIUIIISSISIS IE OR IOS IOI itt 

SATY1: MOVB #1.$FFLG ::TO REPORT FATAL ERROR 

SATY3: MOVB #1.$MFLG >:TO TYPE A MESSAGE: 
BR SATYC 

SATYG: MOVB #1, $FFLG ::TO ONLY REPORT FATAL ERROR 

¥C es 

MOV RO.-(SP) ; PUSH RO ON SThCK 
MOV R1,-(SP) =PUSH R1 ON STAC 
TSTB = SMFLG ; s SHOULD TYPE A> MESSAGE? 
BEQ 5$ NOT: BR | 
CMPB = #APTENV, SENV : :OPERATING UNDER APT? 
BNE ::1F NOT: ‘BR 
BITB § #ARTSPOOL.SENVM : SHOULD SPOOL MESSAGES? 
BEQ 3$ :IF NOT: BR 
MOV a4 (SP), RO, GET MESSAGE Aook | 
ADD #2, 4 (SP) ) - sBUMP RETURN’ ADDR. 

1$: TST $MSGTYPE ->SEE IF DONE W/ LAST XMI SS ION? 4 
BNE ;1F NOT:, WAIT ' ) 
MOV RO, SMSGAD :iPur ADDR’ IN iil det we | 

2$: 1ST (R0)* >F IND END .OF MESSAGE) +. 4 | 
SUB $MSGAD .RO ::SUB START OF MESSAGE 
ASR RO’ £,, | ::GET MESSAGE LNGTH IN WORDS) 
MOV — RO, SMBGLGT :;PUT LENGTH IN MAILBOX tJ 
MOV ae CTYPE TELL APT! TO) TAKE MSG. | 

3$: MOV a4 (SF e581. -:PUT MSG nooR IN JSR LINKAGE 
ADD RETURN ADDRESS 
MOV oto a dk sp) + PUSH ae ON STACK 
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21<0CT=79 13:38 PAGE : 
COMMUNICATIONS ROUTINE 
JSR PC. $TYPE -:CALL TYPE MACRO 
Sf . WORD 0 
10$: STB  $FFLG ;/SHOULD REPORT FATAL ERROR? 
BEQ 12$ -“IF NOT: BR 
TST SENV : | RUNNING UNDER APT? 
BEO 12$ NOT: BR 
11$: ‘TST $MSGTYPE :2F INI SHED LAST MESSAGE? 
BNE 11$ “IF NOT: WAIT 
MOV Q4(SP),$FATAL =:GET ERROR ft 
ADD #2,4(SP) =BUMP RETURN ADDR. 
INC $MSGTYPE -:TELL APT TO TAKE ERROR 
12$:  CLRB  $FFLG “CLEAR FATALYFLAG 
CLRB ~—s- SLFLG == CLEAR LOG FLAG 
CLRB so $MFLG == CLEAR MESSAGE FLAG 
MOV (SP)+!R1 :=POP STACK INTO R1 
Moy | (SP)+/RO : POP STACK INTO RO 
RTS PC ih TURN 
$SMFLG: .BYTE] 0. IIMESSG. FLAG 
S$LFLG: .BYTE} O01) );;L0G FLAG 
SFFLG: BYTE] .0 | “FATAL FLAG 
VEVEN| | J 
APTSIZE=200 
APTENV=001 5 ists, 
APTSPOOL=100 , |. 4 
APTCSUP=040 1 { 
.SBTTL BINARY 70 OCTAL (ASCII) AND YPE 
ET FE AB CE TTTILI LALIT LLL LLL LLL 
“THIS ROUTINE, IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
“®OCTAL (ASCII) NUMBER AND TYPE IT. 
; *STYPOS---ENTER HERE TO. SETUP SUPPRESS. ZEROS AND‘ NUMBER OF DIGITS TO TYPE 
*?* 
_ MOV NUM, (SP), (tS NUMBER 'TO BE TYPED 
te ‘TYPOS Ne “SCALL FOR TYPEOUT 
te _BYTE* N | | EINeT TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* , | $:1=TYPE LEADING ZEROS. 
:* } ne i /:JD=SUPPRESS LEADING ZEROS 
: SSTYPON<==ENTER HERE TO TYPE ‘Our WIT THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC af 
> *CALL: i 
:* MOV, NUM, (SP) --NUMBER TO BE TYPED 
hy TYP 3 ECALL FOR TYPEOUT 


;#$1vPOC—--ENTER HERE FOR IYPEQUT ‘OF A 16 BIT NUMBER 


> *CALL 
oe NOV NUM. = (SP) - : NUMBER TO BE. TYPED 
:* J) YPOC SSCALL FOR TYPEOUT 
’ ‘ . 
$TYPOS: MOV ja(SP) .~(SP) PICKUP THE MODE 
MOVB 1(SP),$OFILL ; LOAD ZERO FILL SWITCH 
‘MOVB | (SP) +, SOMODE +1 : ert OF DIGITS TO TYPE 
» ADD #24 (SP) : TADJUST RE TURN ADDRESS 
BR $TYPON 
ri } j * ' 
‘ 
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CVDRDA.P11 =. 21-OCT=79 13:19 if BINARY |TO OCTAL (ASCE) AND TYPE | 
f 1 iff 
1909 013442 112737 000001 013641 STYROC: MOVB | (#1,$0FILL | ;SET THE ZERO FILL SWITCH 
1910 013450 112737 000006 foe #6, SOMODE +1 ESET FOR SIX(6) DIGITS 
1911 013456 112737 mry ‘ 40 STYPON: MOVE | W5;SQCNT } .32SET_THE ITERATION COUNT 
1912 013464 010346 fi MOVyy yp sR355(SP) | sETSAVE R3- , y 
1915 013466 010446 r mov '| R4 ,=(SP) | s:SAVE RG cy 
1914 13470 010546 / MOV, 'R5,=(SP) ;7SAVE_RS, 
1945 G1 3482) 113706 01364  MOVB) — SOMODE+1,R4 13 ;GET THE NUMBER) ‘OF DIGITS TO TYPE 
1916 0134 4 005404) «+ , 1 oy NEG) RG 
1917 013500} 062704 "ADD #6 .Ré , ; : SUBTRACT. IT FOR MAX. ALLOWED 
1918 013504) 110437 013642 , |, - MOVB | R4,SOMODE 4 ;SAVE IT FOR USE 
1919 023510) 113704 01364 | MOVB ,}, SOFILLR4 (3:GET ‘THE ZERO FILL SWITCH 
1920 013516 ] 016605 000012 iMOV. | 12¢SP);R5 [ | 3:PICKUP_THE INPUT NUMBER 
1921 0135204 005003°) }*). | CLR »y \R3 it? ;¢CLEAR THE OUTPUT WORD 
1922 013522 006105), (+ |), 1$ MROL |) RS |) SEROTATE MSB INTO i 
1923 013524, 0004 | BR ,'3$ | . "3360 DO MSB 
1924 013526 | 906 10 Mi hf fas: 9 Ro PRS yy EF ORM THIS DIGIT 
1925 013530’ 006105 ° «4 | | ROL, ' /R85 |, 
1926 013532» 00610 ‘yD » ROL |" RS): y :% 
1927 013534 | 010503 Os! | bade, MOV) k 1) RSLRB | A ie 
1928 013536 10 W3s: +) Iron, RB Lia 9 : GE] LSB OF! THIS: DIGIT 
1929 19540 1053371 I 3662 | ) 4. 4DECB) ‘py $OMODg ")). ;TYPE THIS DIGIT 
1930 0135441 100016) 1)" ) J) [BP |) 7B a 4 if, , JF_NO 
1931 013546 042703? 1777704 pl BIG #177770. .R3 GET RID OF * JUNK; | 
1932 013592 0010021") "hb \/" tay | BNE 4S jj} ,f!) i: TEST FOR 0 | 
1933 013554 901688 Wy ype PNET Wap rst || 6 1; ,¢¢ SUPPRESS THIS 07 
1934 013556 0018 3H  BEQ 5$ yi ; \'3BR IE YES’ 
1935 4013560 |) 1005 i EP ages oe ANC. Ty RG” | EIDON'T_ SUPPRESS’ ANYMORE”0"S 
1936 (013562 152703 |"ao0060, a ik Ms #°0,R3 3 gMAKE THIS DIGIT ASCII : 
1937 013566 # ),,000040 | 5$: BIS / (wt /,R3 / 4 MAKE ASCII IF/NOT ALREADY 
1938 913572 110337,/'013636 ry! MOVB) R388 | ;;SAVE FOR. TYPING Pe, 
1939 013576», 104401), 013636", | TYPE = 88) | yy. |/ 9G, TYPE’ THIS DIGIT | 
1940 013602 9105337 013640 , , 78) | )DECB) | $OCNT (jj) 32COUNT BY'1 / 
1941 043606 00354 we pABGTE yy) 28%), 4 E3BR IF) MORE TODO 
1942 03610 + 002402 Crap kf pe heen, 4 ‘6s j | S2BR IF ,DONE 
1943 5206, bei bh ah yy yh INC), RG, i INSURE LAST DIGIT ‘ISN’ 1 A BLANK 
1944 4 MOM, So, “Ph BR: 4!) 2 ;7G0 DO THE LAST DIGIT 
1945 013616 / 012605! | “i hn’ 6S! Mov:' (SP)+,R5 , ZRESTORE R5 
1946 013620 612604': | vi fy) MOV, . (SP)+,R4 Up RESTORE R4/ yy: 
1947 013q22 012605, | SL! ‘Mov. 4! (SP) +,R3- SRESTORE RS) yp . 
1948 013624 | rata 02, 000004 1) WIMOV, | | 2¢SP),4(SP) ;:SET |THE STACK FOR RETURNING 
1949 013632 ‘aba 12616 P.! } , MOV (SP)2 (SP) WH) ; 
1950 013634 000002 |) yy gg ar W416 |, Spe TURND. 
1951 013636’: | 000 } 8$: BYTE), 0/0) ')/ 'b. \EESTORAGE FOR ASCII DIGIT 
1952 013637 =» 000), hi ) os ee oe yy BVT Ore, ! >: TERMINATOR FOR TYPE: ROUTINE 
1953 013640 ‘000, °' i iF sotnt’! ».evTE "0 4 () 3 RO0CTAL’ DIGIT COUNTER | 
1954 013641 200 Ih woth yp SOFILL: N BYTE Of) ,/ ¢eZERO FILL SWITCH’! 
1955 013642 000 PW f SOMODE: WORD Q's I. ._.;NUMBER OF DIGITS! TO TYPE. . 
1956 his H ; SBITL | CONVERT | BINARY ,TO'DECIMAL AND TYPE ROUTINE ) 
1958 | | | : FAS shah diieadhedtinileinehscitichenihcesinuordecbsstetaias 
1959 jiPey . of tZTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER: TO’A 5-DIGIT 
1960 ib Ms pe STGNED DECIMAL (ASCII) NUMBER AND TYPE /IT{ DEPENDING ON WHETHER THE 
1961 . -p*NUMBER IS POSITIVE OR NEGATIVE A’ SPACE OR A MINUS SIGN WILL BE TYPED 
1962 h | ZSBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING, ZEROS WILL ALWAYS BE 
1963 ‘|, 2*REPLACED WITH SPACES. || ; 
1964 | e | ; ly 2*CALL : ry . 4% , / A j 
i ; ' al j 
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/ . 


1965 Py" rae | ‘wov' MUM,=(SP)°* sBUT THE. BINARY meth ON THE STACK 

1966 ‘4 bY ) ata, oe °C TYPDS ; G0 TO THE” ROUTINE “ 

1967. Pgh | , I iN 1 

1 013644 | ft) | $TYPDS: ts Wp 

1969 013644! 010046 4 MOV RO,-(SP) ;;PUSH RO ON STACK 

1970 013646/ '010]46 MOV R1,-(SP) ;¢PUSH R17 ON, STACK 

1971 013650, 010246 | , MOV R2,-(SP) ;;PUSH R2 ON STACK 

1972 013652 /01034 MOV R3,-(SP) ;;PUSH R3 ON STACK 

1973, 013654’ '010546, MOV R5,-(SP) : :BUSH RS ON STACK 

1974 013656 1012746 020200 , MOV #20200, -(SP) SET BLANK SWITCH AND SIGN 
197 01 cert MOV 20(SP) .RS ;3GET THE INPUT NUMBER 

1976 wh | BPL ;BR IF INPUT IS POS. 

1977 013670 005405) NEG ORS MAKE THE BINARY NUMBER POS. 

1978 013672 )112766 | doops 000001 MOVB = #'=, 1 (SP) ;;MAKE THE ASCII NUMBER NEG. 

1979 013700’ 005 CLR RO ; ZERO THE CONSTANTS INDEX 

1980 013702, 012703 04060 MOV #$DBLK ,R3 ;;SETUP THE OUTPUT POINTER 

1981 013706i/ 172723, 000040 MOVB #' ,(R3)+ ::SET THE FIRST CHARACTER TO A BLANK 

1982 1013712 ,005Q02' 28: CLR R2 ;:CLEAR THE BCD NUMBER 

1985) 013714 "016001 014050 wT MOV $DTBL(RO).R1  ;;GET THE CONSTANT 

1984 1013720 416070 : j | 3: SUB R1,R5 ;;FORM THIS BCD DIGIT 

1985 ‘013722 002402 rPity& | 68 :7BR IF DONE 

1986 013724 005202 INC R2 ;; INCREASE THE BCD DIGIT BY 1 

1987 | 013726 77 BR 3$ 

1988 / 013730 06010 , 4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 

1989 013732 19005702 , gt,’ TST R2 ::CHECK IF BCD DIGIT=0 

1990 013734 *001002 BNE 5$ ;;FALL THROUGH IF 0 

1991 ‘013736, 105716 | TSTB, (SP) ;;STILL DOING LEADING 0'S? 

1992 013740," 100407 , | BMI 7$ ;;BR IF YES 

1993 013742. 1 106316 5$: ASLB = (SP) ; MSD? 

1994 .'013744 103003 | BCC $ BR IF 

1995 , 01374 6663 000001 177777 ' — MOVB ~—s-1(SP) ,=1(R3) STYES-~SET THE SIGN 

1996 013754 052702 000060 6$: BIS #'0,R2': vy /sMAKE THE BCD DIGIT ASCII 

11997 013760 052702 000040 ' 7S: BIS #' ,R2t ' /;;MAKE_IT A SPACE IF NOT ALREADY A DIGIT 

1998 013764 | 110223 ? MOVB R2,(R3)+ ;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

1999 013766’ 005720 TST (RO) + '  ¢2JUST_ INCREMENT ING ' 
2000 013770 020027 000010 CMP RO,#10 :CHECK THE TABLE INDEX 

2001 013774 002746 BLT : | ;7GO DO THE NEXT DIGIT 

2002 , 013776 003002 BGT hae ;GO TO EXIT 

2003°.014000 010502 MOV R5.R2 |», i3GET THE LSD < 

2004 014002 764 ; BR ‘Tf! O CHANGE .TO A ASCII 
2005 014004 $105726 8$: TSTB = (SP)+ ! ,i2WAS THE LSD .THE FIRST NON-ZERO? | 
2006 014006 , gh ) BPL CS ik. IF NO hah 2 
2007 014010 116663 177777, '177776 , MOVE ,/-1(SP),-2(R3) , {::YES=-SET THE SIGN FOR TYPING é 

2008 014016 105013 CLRB = (R3) :7SET THE TERMINATOR | 
2009 014020 012605 , MoV | (SP)+,R5 > POP STACK INTO R5 ‘ | : 
2010 :014022 012603 MOV (SP)+,R3 7;POP STACK INTO R3 7 
2011 014024 012602 MOV (SP) +,R2 ;;POP STACK INTO R2 

2012/ 014026 012601 MOV (SP)+,R1 | ;;POP STACK INTO R1 ' 
2013 014030 012600 f MOV (SP)+,R0 *»  14;POP STACK INTO RO | 

12014 014032 104401 , 014060 TYPE $DBLK ;NOW TYPE THE NUMBER Dee i 
2015 014036 016666 ' 000002 000004 MOV = 2( SP) 4 (SP) » : SADJUST THE STACK 

2016 014044 012616 MOV (SP) +, (SP) , 

2017 014046 000002 RTI ;;RETURN TO USER . , 
2018 014050 023420 $DTBL: 10000 eae a 
2019 014052 001750 1000. , 

2020 014054 000144 100. : 
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020000 165776 


14244 
002165 


166032 


002210 
002114 014176 
013166 


" 


001000 165716 


002110 
002162 


002162 


002102 002432 
014262 


/Macy1 30A(1052) 


10. 
SDBLK: .BLKW 


21-0C1-79 


,’ 


& 
-SBTTL ERROR ot a ROUT INE 


eamavbeqnduheeqeunuqneseneeensoqnennenencanenqnannnecdsenencens 4 


SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


T*SAVE THE ERROR ITEM —_" AND THE ADDRESS OF 


;*AND GO TO SWRCK ON ERROR 
> * THE SWITCH OPTIONS ary bless BY ‘THIS ROUT INE ARE ;. 


: «SW = 
:*SW1 3=1 
*SWO9=1 
> * CALL | 
;* /ERROR 
SERROR: | 
KSWR 
CKSWR / 
7$: INCB 
BEQ 
MOV 
pINC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR . 
TYPE 
20$: ee) 
. CMPB 
BNE 
MOVB 
“JSR 
21$: BYTE 
.BYTE 
22$: BR 
2$: TST 
BPL 
HAL T 
CKSWR 
3$: BIT 
BEQ 
MOV 
4$: TST 
BEQ 
MOV 
S$: 
RTI 


HALT 


4 
13: 38 "PAGE 42 
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fs PAGE : 


0051 


THE ERROR CALL 


INHIBIT os * TYPEOUTS 


LOOP ON ERR 
} N i 


; ;ERROR=EMT * AND N=ERROR ITEM NUMBER 


:: TEST FOR CHANGE IN SOFT-SwWR 


;GO LOOK FOR SWR CHANGE 


SERFLG 
7$ 


(SP) ,SERRPC 
#2,SERRPC 
@SERRPC ,SITEMB 
#81T13,aSWR 
20$ 

PC ,SWRCK 

. SCRLF 


MAPTENV, SENV 


$ 
SITEMB, <"s 
a. eSATYS 


QO» 
228 | 
aSWR 
33 

| | 
W831 109 .aSuR | 
SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE , (SP) 


$TSTNM,@DISPLAY 
RTTL 


:zSET THE ERROR FLAG 
>DON'T LET THE FLAG GO TO ZERO 

; #DISPLAY TEST NUMBER AND ERROR FLAG 
: INC THE ERROR COUNT 

i 2GET ADDRESS OF ERROR INSTRUCTION 


:: STRIP AND SAVE THE ERROR ITEM CODE 

;SKIP TYPEOUT' IF SET 
::SKIP TYPEOUTS 
;;GO TO USER ERROR ROUTINE 


¢ ¢ RUNNING IN APT MODE 
:NO,SKIP APT ERROR REPORT 

7 SET ITEM NUMBER AS ERROR NUMBER 

ssREPORT FATAL ERROR TO APT 


; APT ERROR LOOP | 
: :HALT ON ERROR 
{SKIP If CONTINUE 
T ON ERROR! , 


“I JEST FOR CHANGE IN SOFT-SWR 


eel ON ERROR SWITCH SET? 


:BR IF NO 
-: FUDGE RETURN FOR LOOPING 
=:CHECK FOR AN ESCAPE ADDRESS 


::BR IF NONE , 
: :FUDGE RETURN ADDRESS FOR ESCAPE ' 
: =RETURN ! La 


PETITITITITITITI TILL LILLIE TLE LL ELL ELLE LLL LL LLL LLL 


:60 TYPE ERROR 


:GO UPDATE SOFTWARE SWR IF ‘CNTRL/G" 


° LEER EERE EERE EERE ERE REE EREEREREREEEERE RE 


SWRCK: MOVB 
JSR 


CKSWR 


STSTNM,TSTNUM 


PC, SERRTYP 


;SET UP TEST # ON ER 
:GO TYPE ERROR 
:GO LOOK FOR SWR CHANGE 


CVDRDA DRV11J DIAG TST PRT2 
CVDRDA.P11 


2109 


eet aed ed ced eed ced ened eed eee ed 
WONAUESWN—© 


Ve Pon 


NONINININIAPYNININININININININIPVNI NN NN Non 
a i ar a ee ee ee er ee ee ee 
SAS S00 NOUS WN— 


NIN 


014260 


014262 


014412 


000207 


104401 
010046 
005000 
153700 
001004 


013746 


0 
014416 
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002165 


002126 | 
} , 


002116 


( 


002252 
014334 


002165 
014352 


002165 


002165 


014412 
000 


MACY11 30A(1052) 
ERROR HANDLER’ , 


RTS PC 
- SBTTL ERROR MESSAGE 'TYPEOUT ROUTINE 


’ 
tnamnncdactinnnnnpeasatenetnessimmnndvtuelameutneants 


* STHIS ROUTINE USES THE ‘ITEM CONTROL BYTE’’ ($ITEMB) TO DETERMINE WHICH 
TABLE’’ ($ERRTB), 


21-0CT-79 
ang 


a» 


13:38, 
| 


:*ERROR IS TO BE REPORTED. 


:*AND REPORTS THE APPROPRIATE INFORMATI 


SERRTYP: ‘' 


2$: 
3$: 


4$: 
5$: 
6$: 


7$: 


8$: 


TYPE 
MOV 


CLR 
BISB 
BNE 


TYPO 
TST 
BEQ 
TYPE 
BR 


eASCIZ 


,SCRLF 


RO,-(SP) 

RO 

= TEMB ,RO 
i 


#SERRT 
(ROD+, 
3$ 


0 
,SCRLF | 
(RO)+,4$ 
5$ 


0 f 
,SCRLF 


(RO) ,RO 
7$ 
(SP)+,RO 


. SCRLF 
PC 


RO. 


NORGE 43 


Shee 


IT ‘THEN OBTAINS, FROM 


SERRPC ,-(SP) 


@(RO)+,-(SP) 


(RO) 
s 
7$ 
a 


- 


.EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


/ . 


? 
ee 


2 
33 MRIAGE AE RETURN'* @ ‘LINE FEED" 


“RE TURN 79 ERROR . WYOLER: 


THE ,. 


+ sPICKUP ws i'TEM INDEX 


: sf ITEM | 


;TYPE THE 


RROR 
CONCERNING ' THE ERROR. . + 


os 


R ic ZERO, ‘JUST 


5 OF 


THE £RROR 


::SAVE SERRPC FOR TYPEOUT 


; ERROR RESS 
¢3G0 TYPE=-OCTAL ASCII CALL DIGITS) .« 


¢ ADJUST, one “INDEX SO THAT IT WILL 


‘2, 


( 


32 FORM 
:sPICK 


SUP age IFy.NO POINTER 


: 
/ 


‘FOR THE sERROR TABLE 


7 ' t 


x4 


ABLE PO! INTER 4 
"ERROR 1h POINTER 


ME SSAGE"’ 
POINTER GOES HERE 


RETURN & LINE FEED" 
ADER ‘POINTER 
I “DA FADER 


£60. TYPE THE DATA, . 
STORE R 


ee ) 


SRE 
72’ CARRIAGE RETURN é 
SRETURN | 


::SAVE a(RO)+ “FOR TYPECUT 
::G0 TYPE--OCTAL ASCHLCALL DIGITS) 
“1S THERE ‘ANOTHER, NUMBE 
“-BR IF 

SE TYPE TwO(2) SPACES 


LOOP 
3TWO(2) SPACES 


“RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


~— LOAD THE TEST NUMBER(STSTNM) INTO THE/DISPLAY REG. (QISPLAY<?: Q>) 
THE ERROR FLAG (SERFLG) INTO D 
js THE SWITCH OPTIONS PROVIDED BY THIS ROUTI 
*SW14=1 LOOP ON TEST 


AND LOAD 


E ARE: :08> 


TER GOES HERE 


:ECARRIA ee RETURN’ : POINT re 


‘ne FEED" 


PITTI TITTLE TELE LELELE LE LLL LLL LEE 


IT WILL INCREMENT 


* - 
, 


7 
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0052 





Mm DIAG TST PRT2 
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014416 


014426 
014430 
014432 


4666 
014672 
014676 


104407 
032777 
001114 
000416 


013746 


040000 


000004 
014456 
177060 
000004 
000004 


000400 
165436 
002103 
002115 
001000 
002110 


002103 
002160 


MACY11 phe et 


165512 


000004 


165444 
002102 


002103 


165406 
002106 


165354 


£B 5 
13:38 PAGE 44 


;;TEST FOR CHANGE IN SOFT=SWR 
+ ¢ LOOP ON PRESENT TEST? 
3YES IF SW14=1 


; IF RUNNING ON THE °XOR'’ TESTER CHANGE 
SSTHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
;sSAVE THE CONTENTS OF THE ERROR VECTOR 
;3SET FOR TIMEOUT 


oe ON XOR? 
; RESTORE THE ERROR VECTOR 
+260 TO THE NEXT TEST 
sCLEAR THE STACK AFTER A TIME OUT 
: DRESTORE THE ERROR VECTOR 
OOP ON THE PRESENT TEST 


; «LOOP ON SPEC. TEST? 
F NO 


I 
; ON THE RIGHT TEST? SWR<7:0> 


IF YES 
HAS a” pew OCCURRED? 
ERRORS FOR THIS TEST OCCURRED? 


=:SET LOOP ADDRESS TO LAST SCOPE 


ho): THE ERROR FLAG 
sCLeé re THE NUMBER OF ITERATIONS TO MAKE 
E TO THE NEXT TEST 
:TINMIBIT ITERATIONS? 
F YES 


I 
oo IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
: + INCREMENT ITERATION COUNT 
THE NUMBER OF ITERATIONS MADE 
F MORE ITERATION REQUIRED 
: 7REINITIALIZE THE ITERATION COUNTER 
>SET NUMBER OF ITERATIONS TO DO 
: COUNT TEST NUMBERS 
;;SET TEST NUMBER IN APT MAILBOX 
;sSAVE SCOPE LOOP ADDRESS 
;:SAVE ERROR LOOP ADDRESS 
scclem THE ESCAPE FROM ERROR ADDRESS 
Y ALLOW ONE(1) ERROR ON NEXT TEST 
robe TEST NUMBER 


21-OCT-79 
E HANDLER ROUTINE 
:*SW11=1 INHIBIT ITERATIONS 
> *SWO9=1 LOOP ON ERROR 
3: *SwWO8=1 LOOP ON TEST IN SWR<7:0> 
3 *CALL 
3% SCOPE 3; SCOPE=I0T 
SSCOPE: 
CKS 
1$: BIT #81T14,aSWR 
BNE SOVER 
sMRRRASTART OF CODE FOR THE XOR TESTERMMAMHA 
S$XTSTR: BR 6$ 
MOV @VERRVEC ,- (SP) 
MOV #5$_ @#ERRVEC 
TST a#177060 TIME OUT 
MOV (SP) +, a@#ERRVEC 
BR SSVLAD 
5$: CMP (SP)+,(SP)+ 
MOV (SP) +, AERRVEC 
BR 7$ si. 
6$:;A4M4H4AAEND OF CODE FOR THE XOR™ TESTERMAAMH 
BIT #81T08,aSWR 
BEQ 2$ 
CMPB aSWR,STSTNM 
BEQ SOVER Se 
2s: TSTB SERFLG 
BEQ 3$ «BR I 
CMPB SERMAX ,SERFLG 7 MAX. 
BH] $ ;7BR I 
BIT #8B1T09,aSWR : 
BEG 4$ ;BR I 
7$: MOV SLPERR,$LPADR 
BR SOVER 
4S: CLRB SERFLG 
CLR STIMES 
BR 1$ > sESCAP 
3$: BIT #B1T11,aSWR 
BNE 1$ os 
TST SPASS 
BEQ 1$ 
INC SICNT 
CMP STIMES,SICNT :C HE CK 
BGE SOVER 
1$: MOV #1,SICNT 
MOV SMXCNT .STIMES 
$SVLAD: INCB STSTNM 
: MOVB STSTNM,.STESTN 
; MOV (SP) ,SLPADR 
‘ MOV (SP) ,SLPERR 
~ CLR SE SCAPE 
‘MOVB #1, SERMAX 
SOVER: MOV STSTNM,aDISPLAY 
MOV SLPADR, (SP) FH 
RT] FIXES P 
SMXCNT: 1. 


E _—— ADDRESS 
>:MAX. NUMBER OF ITERATIONS 


PAGE : 


005 


3 





CVDRDA 
CVDRDA .P 


014676 


014740 
014742 


014770 
014774 


014776 
015002 


015024 


015026 
015032 


tbl DIAG 1 Og Tite 
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022737 


117746 
042716 


021627 
005 


000002 
004737 
021627 


13:1 


000176 
165232 
165226 
177600 
000007 
002134 


015423 
015430 
000176 


015441 
165150 


165144 
177600 


000025 


015416 
000006 


000015 
000004 
000002 


000006 
002165 
002135 


000100 
013100 
000060 


MACY11 a og <4 


002140 


000001 


165070 


000001 
165046 


21-OCT-79 


Y INPUT ROUTINE 
TTY INPUT ROUTINE 


FF AAA RAAAARARAAAAARARAAAAAAAAAARARARAARARAAAARAAAAARAARAAAAAAAAAAAAR 


. SBTTL 


- ENABL 


LSB 


- 2 
13:38 PAGE 45 


SL AAAAAAAAAARAAAAORAAEAAAAAARARARARERORAARAARERARARARAEAHARERRARR ED 


:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER 


:*SERVICE THE TEST FOR 


AND WILL 
CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


;*WHEN OPERATING IN TTY FLAG MODE. 


SCKSWR: 


SGTSWR: 


19$: 
7$: 


9$: 


20$: 


CMP 


#SWREG, SWR 
15$ 

asTkS 

15$ 
a$TKB,-(SP) 
#°C177, (SP) 
#7, (SP)+ 
15$ 

15$ 

-SCNTLG 
“SMSWR 
SWREG,- (SP) 


. SMNEW 
- (SP) 
~ (SP) 
a$TKS 
7$ 


a@$TKB,-(SP) 
#*C177, (SP) 


(SP) ,A25 
10$ 


(S 
16 
4 ( 
17 
2 ( 


p 
$ 
SP) 
% 
o(SP) . -@SWR 
"Sth 
$INTAG AT 
#100, ,a$TKS 


PC ,STYPEC 
(SP) ,#60 


s2ia THE SOF T-SWR SELECTED? 
IF NO 


; sBRANCH 

:3CHAR T z 

331F NO, DON'T WAIT AROUND 
;zSAVE T 


- HE CHAR 

:-STRIP-OFF THE ASCII 

:2:1S IT A CONTROL G? 

;:NO, RETURN TO USER 

7ARE WE RUNNING IN AUTO-MODE ? 
; BRANCH IF YES 


;sECHO THE CONTROL-G (“*G) 
:3 TYPE CURRENT CONTENTS 
she SWREG FOR TYPEOUT 
:GO TYPE--OCTAL a DIGITS) 


:3 THE 
CHAR THERE? 
:IF NOT TRY AGAIN 


7zPICK UP CHAR 
MAKE IT 7-BIT ASCI! 


215 IT A CONTROL? 
‘ee E IF NOT 
;YES, ECHO CONTROL-U (“U) 
; IGNORE PREVIOUS INPUT 
“SLET" S TRY IT AGAIN 


::I1S IT A <CR>? 
7 BRANCH IF NO 
YES, IS IT THE FIRST CH4R? 
" CH IF YES 


77 SAVE NEW SWR 
¢ CLEAR UP oo 
sECHO <CR> AND < 
> ;RE-ENABLE TTY KBD. INTERRUPTS? 
;;BRANCH IF NOT 
RETO TTY KBD INTERRUPTS 
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2245 015110 002420 BLT 18$ ; :BRANCH IF YES 
2246 015112 021627 000067 CMP (SP) 467 >: CHAR > 7? 
2247 015116 003015 RGT 18$ : BRANCH IF YES 
2248 015120 042726 000060 BIC #60, (SP) + : :STRIP-OFF ASCII 
2249 C€15126 005766 000002 TST 2( SP) 31S THIS THE FIRST CHAR 
2250 015130 001403 BEG 17$ - ;BRANCH IF YES 
2251 015132 006316 ASL (SP) ;3NO, SHIFT PRESENT 
2252 015134 906316 ASL (SP) 3 CHAR OVER TO MAKE 
2253 015136 006316 ASL (SP) >; ROOM F W : 
2254 015140 005266 000002 17$: INC 2(SP) : KEEP COUNT OF CHAR 
2255 015144 056616 177776 BIS -2(SP), (SP) :;SET IN NEW CHAR 
22 015150 000707 BR 7$ -;GET THE NEXT ONE 
2257 015152 1064401 002164 18$: TYPE , SQUES : : TYPE 7<CR><LF> 
2258 015156 000720 hare 20$ :: SIMULATE CONTROL-U 
2259 .DSABL LSB 
2260 
2261 
2262 SRE RARER REAR EERE EERE ERA ERE RARER EREREERER RR EREE RARER 
$Se7 erty ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE ITY 
;*CALL: . | 
2265 ;* RDCHR >; INPUT A SINGLE CHARACTER FROM THE TTY 
2266 :* RETURN HERE >: CHARACTER IS ON THE STACK 
2267 :* ;;WITH PARITY BIT STRIPPED OFF 
2268 ; 
2269 me 
2270 015160 011646 SRDCHR: MOV (SP) ,=(SP) :PUSH DOWN THE PC 
2271 015162 016666 000004 000002 MOV 4(SP).2(SP) SAVE THE PS 
2272 015170 105777 164750 1$ TSTB ask KS /; WAIT FOR 
2273 015174 100375 BPL 1$ :>:A CHARACTER 
2274 015176 117766 164744 000004 MOVB a$1KB,4(SP) >:READ THE TTY 
2275 015204 042766 177600 000004 BIC orci tP> 4(SP) i3GET RID.OF JUNK IF ANY 
2276 015212 026627 000004 000023 CMP 4(SP) #23 -1S 1% A CONTROLS? 
2277 015220 001013 BNE 3$ > = BRANCH IF NO 
2278 015222 105777 164716 2$: TSTB asks Hk FOR A CHARACTER 
2279 015226 100375 BPL 2$ LOOP UNTIL ITS THERE 
2280 015230 117746 164712 MOVB a$TKR,-(SP) =:GET CHARACTER 
2281 015234 042716 177600 BIC #*C177, (SP) ::MAKE IT 7-BIT.ASCII , 
2282 015240 022627 000021 CMP (SP)+,421 2:1S IT _A.CONTROL-Q?° Bie alm nd 
2283 015244 001366 BNE 2$ ::1F NOT ae IT m 
2284 015246 000750 BR _ ~ bes YES, RESUME 7 
2285 015250 026627 000004 000140 3$: CMP 4(SP) A140 BFE IT UPPER CASE? , 
2286 015256 002407 BLT > ) ;BRANCH IF. YES’ “ 
2287 015260 026627 000004 000175 CMP + -4(SP) #175 71S IT A SPECIAL CHAR? 
2288 015266 003003 ‘BGT s 4$ ,~  ¢éBRANCH_IF YES 
2289 015270 042766 000040 000004 \BIC > #40, 4(SP) s'',  7:MAKE IT UPPER CASE 
2290 015276 000002 4$: \ RTI“. ‘ 3:G0 BACK TO USER ° 
2291 Ree REA RER RARER AREER ERE ER AERA ERE TR EATER REE E Ree 
2292 > *THLS ROUTINE WILL wn A STRING FROM THE TTY 
2293 2 *CALL:: 
22% 8 , RD IN iz INPUT A STRING: FROM THE TTY 
2295 lane RETURN HERE ‘ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
2296 | | jeg 2 4B N:STERMINATOR WILE BE A BYTE OF ALL O'S 
“oe é , . 
2298 015300 010346 SRDLIN: MOV °* R3,-(SP) E R3 
2299 015 302 0129703 015406 b1$:' MOV, #STTYIN,R3° eet © ADDRESS 


506 022 OS 015416 ’) 285 CMP’ aSTTYINGS. sR3 ® BUFFER FULL? o 


\; ‘ ® 
pe ae ee 
’ ' . 3 ; § ie | ’ 4 
Wi | X » + 4 | h 


——=—EE_——————_—— ee EE  —E—— rr a ee nnn EE nS SE mar aa OS ws GG" 


° Se 3 
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015312 101405 ae - BLOS . 4$ ;BR IF YES 

015314 104410 4 yf RD CHR : GO READ ONE CHARACTER FROM THE TTY 
015316 112613 ‘ ,  MOVB.: (SP)+,(K3) Eider CHARACTER 

015320’ 122713 000177 ) 10$:' CMPB* = #177, (R3) “SEIS 17 A RUBOUT 

015324) 001003, . _ BNE 3$ : SKIP IF NOT 

015306 104401" 002164», 4s:' ~ TYPE | ,$QUES :nTYPE A ‘2° 

015332 000763 | 4 : BR « i$ :ZCLEAR THE BUFFER AND LOOP 

015334, 111337* 015404. 3$: MOVB B® (R3),9$ ECHO THE CHARACTER 

015340) 104401 015404", | + TYPE.” OS ' 
015344 122723 000015 /  (MPB, = #15, (R3)+ ; CHECK FOR RETURN 

1), 015350 001356 ¢ : BNE ¢ 2$ ‘SILOOP IF NOT RETURN 

015352 | 105063 127777 | CLRB* =-1(R3) “SICLEAR RETURN (THE 15) 

015356 104401 "002166 | "TYPE. —_, SLF ‘3: TYPE A LINE FEED 
1'015362 » 012603 ws MOV, = (SP) +, R3 TIRESTORE R3 

5}\015 01,1646 : - MOV’  (SP),=(SP) «ss S SADJUST THE STACK AND PUT ADDRESS OF THE 

, 015 016666 000004 000002 MOV,  4(SP),2(SP) . 3: FIRST ASCII CHARACTER ON I? 

* 015374 012766 015406 000004 ‘Mov’ so w$TTYIn.4csp) & 

015402 2, ’ RTI ’ 5 :RETURN > 

015404 000 : 9S: , BYTE 0. ‘STORAGE FOR ASCI! CHAR. TO TYPE 

015405 000 ( | ‘BYTE 0 : TERMINATOR 

10 » $TTYIN: .BLKB 


015406 0000 ‘. 8. '  RERESERVE 8 BYTES FOR TTY INPUT 
015416 1052536 \ 995015 ' 000 / SCNTLU: “ASCIZ.  /*U/<15><125 5 CONT ROL: “U"' k 

015423 1 O7\ 000012" $CNTLG: .ASCIZ /*G/<15><12> ; CONTROL +" 'G"’ | ; 
015430 005015 083825, 020122 SMSWR: .ASCIZ <15><12>/SWR=/°  *\ | 

015436 020075 ‘ ! _e | Be 





15441). 040 047040 953505. SMNEW: .ASCIZ, / NEW = 
5446 036440) ‘ , 
. ) -SBITL: POWER OWN, AND UP:ROUTINES ! 
- | % 
| r ‘ Vs \ -— , shashancetentententenceceencenedacendeacenceneeceenterereeesens 


\ ‘POWER DOWN ROUT INE 
015452). 012737 015616 900024 »SPWRDN : MOV ASILLUP, awPwRVEC!': :SET FOR FAST UP 


1015460 012737 | ORD {900 "Mov? #340, QAPWRVEC +2 \; ‘s :PRIO:7 , 
05 \ ‘ MOV. ,RO,~-(SP) PUSH RO ON STACK 
015470 010146 \ \y: MOV. ,RT,-(SP) , « ;PUSH R1 ON STACK 
015472 010246 ' \, | MOV’ ,\* R2,-(SP) ~.. "> PUSH_R2 ON STACK 
015474 010346 | \., | MOVE = R3,-(SP) *+ 5; PUSH R3 "ON STACK - 
015476 010446 5 , . MOV ~*R4,-(SP) . 3 7PUSH.R4 ON STACK 
015500 010546 " ‘MOV RS,-(SP) " ¢PUSH'RS ION STACK 
015502 017746 164432 « ° , “MOV \ @SWR.5(SP) —*  ; ; PUSH “@SWR ON’ STACK. 
015506 010637 015622 . |e MOV » SP, S$SAVR6 SPSAVE SP! 
015512 012737 015524 000024 ! MOV» #$PWRUP, @#PWRVE C F3SET UP VECTOF 
015520 000000 \HAL T , 
015522 000776 | BR ok ee i THANG UP) 
2s cin duaiocanainahmmmpnncabendadasuaensinmbemmadeaa tad 

3 | :POWER .UP ROUTINE — 
015524 012737 915616 000024 SPWRUP ‘MOV |. MSILLUP a#PWRVEC ;; SET <FOn FAST DOWN « = 
015532 013706 015622, ~ * MOV.” $SAVR6,SP : . 
015536 005037 015622. CLR $SAVR6" an Td ronitue try: * 
015542 005237 015622 . i$: ~ INC SSAVR6 ° sWAIT FOR THE INC n 
015546 007375 -BNé ° 1$ ° 3208 WORD | , 
015550 072677 164364. MOV (SP)'+,@SWR “POP STACK INTO aSWR ‘ . 
015554 012605 | MOV ‘ (SP)+,R5 ; :POP STACK INTO RS & : 
AEE Sy 012604 : MOV (SF) +,R4 ¢sPOP STACK SINTO R& ¢ *, | 


560 012603 ae MOV (SP) #-R3 EPROP STACK LINTO RB) 


cae TRS 





oe 





F 5 ae | 
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CVDRDA.P11 21-00 T=79 13:19 t, POWER DOWN AND UP ROUTINES se 
2357 015562 012602 7 MOV (SP) * Re ;;POP STACK INTO R2* 
2358 015564 012601 ; MOV (SP)+,R1 ;;POP “STACK INTO R1 A: 
2359 015566 012600 MOV (SP)+,RO + ¢POP STACK INTO'RO . ‘ 
2360 015570 012737 015452 000024 MUV #$PWRDN, @APWRVEC ;;SET UP pre On DOWN VECTOR ° 
2361 015576 012737 340 000026 MOV #340, anPuRVEC +2 3PRIO:7 | 
2362 015 104401 | TYPE aren /THE POWER FAILURE. ¢ y, , 
2363 015 015624 . SPWRMG: .WORD PWRMSG R FAIL; MESSAGE POINTER P y : 
2364 015610 012716 MOV (PC) +, (SP) 7 ;RESTART# AT START1 P , ‘ . ’ . 
2365 015612 003066. brWRAD: .WORD START ~~ FRESTART ADDRESS a ree 
2366 015614 | . RTI \ ¢ P 
2367 015616 000000, | | ' $ILLUP: HALT 2: THE POWER UP SEQUENCE WAS STARTED , 
2368 015620 000776 ° \ - BR 4 BEFORE THE POWER DOWN WAS COMPLETE 
2369 015622 000000 | . SSAVR6: O :PUT THE SP HERE ' ; ; 
2370 015624 005015 042522 052123 PWRMSG: .ASCIZ <45><12>/RESTARTED FROM: PWR FAIL/ fg ts - 
2371 015632 051101 042524 020104 al ’ i : “a 
2372 015640 051106 046517 050040 ' Ae ; 
2373 015646 051127 043040 044501 4-7 Aaa ; ‘ 
2374 015654 000114 ie ae oe 
2375 . -EVEN ) : , ee 
$376 .SBTTL TRAP DECODER : e = 32.’ ie ‘ “a 
2378 . Annaneeneaneenentauneeerennnewsnennbeotesagvehetantente aT) “ coe 
2379 :*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE :‘‘TRAP*! INSTRUCT] a .” 
2380 >*AND USE IT; TO INDEX.*THROUGH THE TRAP TABLE FOR’ JHE fee tT NG ADB ESS 
2381 ;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL * , 
Sent :*GO TO THAT ROUTINE. a eee 4 
2384 015656 010046 $TRAP: MOV! RO,-(SP) ; SAVE RO. St a eer ; 
2385 015660 016600 000002 MOY e (SP) ,RO GET TRAP ADDRESS er se tae 
2386 015664 005740 TSTS —- =(RO) : BACKUP BY 2 : 
<387 015666 111000 MOVB (RO) ,RO ;GET RIGHT BYTE, OF/ TRAP » - J ‘ 
2388 015670 006500 * ASL RO . :POSITION FOR JNDEXING” ; , 
2389 015672 016000 015712 4 MO $TRPAD (RO) ,RO INDEX TO TABLE , , 
Samy 015676 200 RT RO. :2GO TO ROUTINE < * 2 = ; 
2392 Y , ." 
$300 ): THIS IS USE TO HANDLE THE “GETPRI"* MACRO vf é P 
. 
2395 015700 0116466 i $TRAP2: (SP) ,-(SP) ::MOVE THE PC DOWN ee ae SE 
2396 015702 016666 000004 000002" MOV “G(SP) ,2(SP) ::MOVE THE PSW DOWN... ro a 
2397 015710 0009002 } RTI : ;;RESTORE THE PSW | 
2398 : ; fs 
2399 * (SBTTL TRAP TABLE t 4 ' i ) 
2400 Y » « “ . beg 
2401 » ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 4 
2402 ;*BY THE ‘‘TRAP’' INSTRUCTION. o vs a. 
2403 , “5 J , . 
2404 : ROUT INE . “* | i Oe, 
2405 . . crema =" m. ; mes * 
2406 015712 015700 $TRPAD: .WORD $TRAP2 ¥y as p 
2407 015714 0126646 $TYPE ;;CALL=TYPE TRAP+1(10440P) TTY. YPE OUT ROUTINE | 
2408 015716 015442 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE" OCTAL’ NUMBER (WITH LEADING ZEROS) 
2409 015720 013416 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL R-(NO LEADING ZEROS) 
2410 015722 013456 $STYPON ;;CALL=TYPON ® TRAP+4(104404) TYPE OCTAL~NUMBER ‘(AS PER LAST CALL) 
et 015724 013644 ’ : STYPDS ;;CALL=TYPDS © TRAP*5(104405) TYPE DECIMAL NUMBER (WITH SIN) +. 
) a. tA * | 
' 7 a 
» = | 
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~ SBTTL 
TITLED: 


TLCABL : 


FM: 


EM2: 


EM3: 
EM4 : 
EMS: 
EM6: 
EM7: 


EM10: 


EM11: 
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G 5 
13:38 PAGE 49 * 


21-00 1-79 
E 
— ZZ CALL=GTSWR ° TRAP+6(104406) GET SOF T=SwR SETTING 5 
$CKSWR ::CALL=CKSWR |= TRAP+*7(104407) TEST FOR. ‘CHANGE. IN sor Te SwR 


SRDCHR 


SRDLIN- 


3;CALL=RDCHR 


TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
ebties, ie < 


TRAP*+11(1046411) TTY TYPEIN STRING ROUTINE 


ASCI1 MESSAGES 


ASCIZ 


ASCR 


ASCI2 


> SASCIZ 


ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 


” 


-ASCI2 


<15><12>/CVDRDA DRVITJ DIAG TEST PART 2/<15><12> 


-15><12>/DRV11J CABLE REQ'D/<15><12> 


/REG TIMEOUT ER/ 
"REG -READ/WRITE ER 


/]RR REG ER/ 


-JACR REG ER/ 


/ISR REG ERS 
/ILLEGAL VECTOR MEM ADDR ER/ oy 


/CHIP. STAT ER/ 


ASTI Zig /ILLEGAL INTERRUPT RECEIVED/ 


‘ 


* ASCIZ 


ASCIZ 


/INTERRUPT TEST ERROR/ 


/MULTIPLE INTERRUPTS RECEIVED/ 


/VECT ADDR MEM ER/ 


SN Se Se a 
, 


PAGE : Nose‘ | 





CVDRDA DRV11J DIAG TST PRT2 


CVDRDA.P11 


- 


21-0CT=79 13:19 
016346 046505 042440 


016712 000102 _ 
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000000 
002122 
002124 
002122 
000000 
002120 
002452 


ASCII MESSAGES 


DH1: -ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
DH2: -ASCIZ /ERRPC TSTNOM BUSADR VAM ADDR EXPCT 
' 4 
DH3: -ASCIZ /ERRPC  TSTNUM BUSADR VAM ADDR/ 
DH4: ASCIZ /ERRPC TSTNUM TESTPC BUSADR VAM ADDR/ 
-EVEN . 
DT1: SERRPC, TSTNUM, $BDADR, $GDDAT, $BDDAT, 0 


DT 2: SERRPC, TSTNUM, SBDADR, VECVAL , VECLOC,$GDDAT , SBDDAT ,0 
‘ i 8 


DT3:  $ERRPC,TSTNUM, $BDADR, VECVAL, VECLOC,0 
DT4:  $ERRPC, TSTNUM, $GDADR, $BDADR. VECVAL. VECLOC.0 


WEARER RRRAARARRARARRRRRRRSRARRR RR RRR RR RRR RR RARER RS RRR RRR RE DE SD | 


: "DBUF" IS THE STORAGE AREA FOR SYSMAC LOCATIONS 0-202 
“PRESERVED IN ORDER TO TEST DRV11J VECTORING TO 
“VECTOR SPACE 0-200. : 


CC TAAAAAAAAAAAAARAARAARAAAEARAEAARAAAAAAAARAAAAAARAAKRAKRRARA TARA AREAS 


DBUF : -BLKW 66. 37ST ADRS OF DATA STORAGE AREA 


WER ARSRASASAASARARRRRRRRRRRRRRR RRR RRR RR RRRRRRRRRRRR RRR RR RS SSS SE | 


-VECTOR BUFFER USED FOR VECTOR UNIQUENESS TEST 
“FOR 64 INTERRUPT VECTORS. 


SC RAAAAAAAARAAARRARARAAARAAAARAARAARAAAARHKAKRAKRAKAKAReKRAeeRAeAnenetes 


RCVD/ 
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2525 017116 000100 VBUF : .BLKW 864. 
2526 «077316 FNDRUF : 
2527 000001 END 


7. 75 
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ABASE = 164160 135¢@ = 269 310 406 407 408 409 
ACDW1 = 000000 269 312 
ACDW2 = 000000 269 
ACPUOP= 000000 269 284 
ACRLOC 002450 425 
ADDWO = 000000 269 
ADDW1 = 000000 369 
ADDW10= 000000 269 
ADDW11= 000000 269 
ADDW12= 000000 269 
ADDW13= 000000 269 
ADDW14= 000000 269 
ADDW15= 000000 369 
ADDW2 = 000000 269 
ADDW3 = 000000 269 
= 000000 369 
ADDWS = 000000 269 
ADDW6 = 000000 269 
ADDW7 = 000000 269 
ADDWB = 000000 369 
= 000000 269 
ADEVCT= 000000 369 275 
ADEVM = 000001 1364 269 311 
AENV = 000000 269 280 et 
AENVM = 000000 269 281 
AFATAL= 000000 - : 269 572 ; 
= 000000 |. 269 297 
AMADR2= 000000 » 269 301 
3= 000000 269 304 ; 
AMADR4= 000000 269 307 — 
AMAMS1=, 000000. 269 591 —— 
AMAMS $= sto $63 oe 
= 900000 seo s«805 - -f 
= 000000 269 377 » 
AMSGLG= 000000 269 278 = a 
AMSGTY= 000000 269 271 : : 
AMTYP1= 000000 269 392 ™ 
AMTYP2= 000000 369 300 . 
AMTYP3=' 000000 269 303 
AMTYP4= 000000 269 7 
APASS = 000000 269 574 
APRIOR= 000000 269 
APTCSU= 000040 1773 —s-«1878# . 
= 000001 . 1766 1834 18764 2051 = 
APTSIZ= 000200 476 1875# ; 
APTSPO= 000100 1768 1836 18774 oa ; 
APTVEC 011424 1467 + 1485# >, : 
APT200 011676 1545 1552# 
ASWREG= 000000 269 282 a 
ATESTN= 000000 269 273 . 
AUNIT = 000000 269 576 
AUSWR =.000000 269 283 —_ 
AVECT1= 000000 269 308 


000000 , | 
BDSAV 002464 4314 , 


- 
#- 


‘ee + 

ee “we OKC : 
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BGCHP3 012644 541 655 747 -,' 870 «17308 
BITO = 000001 1208 1366 peo , 

BITOO = 000001 1104 120 ! . 

BIT01 = 000002 1094 119 

BITO2 = 1084 118 , . ‘ 

BITO3 = 000010 107# 1175 ' 

BITO4 = 000020 1064 116 s . 

BITOS = 0 1054 115. oa ” 

BITO6 = 900100 1044 114: ow 

BIT07 = 0002 1034 =. 113 ‘a + 
BITO8 = 00 1024 132°. 21395 

BITO9 = 001000 1014 111 2062 2163 . . 

BIT1 = 000002 1194 570,674 - 790 917 1046 1175 : 

BIT10 = 002000 1009 » ' ~t 5 - 

BIT11 = 004000 994 2170 | 

BIT12 = 010000 984 ' 

BIT13 = 020000 97# 2046 ' 

BIT14 = 040000 964 4 

BIT1S5 =--100000 954 137 ¢ 
BIT2 = 000004 1184 v - 

BITS = 000010 1174 - 

BIT4 = 000020 1164 

BITS = 000040 .11Se 7 # 

BIT6 = 000100 1144 ~ 4 | ' 

BIT7 = 006200 1134 Cow, : 2 me 

BITB = 000400 1124 138 | iy ’ - 
BIT9 = 001000 » ie’, 1 626 662 -. 757 878 . | : 

BPTVEC= 000014 1278 : } ied : i 

BYCNT 002470 4 «6334. 76s 772* .891* 895* 1383* 1386« ' 

BYNUM 002472 OG BGH  24Gs 769 .. 791 845 867* 891 918 984* 1506 1566 

CAT200 011634 884: “906 ~914- 926 “938 . 946 954 962 971 15424 _ 1573 1580 
CHPISR= 000140 4 4 155M 612 1182 119%. * *, : 

CIMR = 000040 =: 1454 1024. 1036 1154 1165 

CIRMR = 000020... 162M 0' : | te 

CIRR = 000100 + 150% °' 1186 _ .1200 2 : 

CISR = 000160 : ' 1564 964 4 ‘ ‘ 

CKSWR = 104407 846 985 2037 2038 2061 2076 2140. 2615M - gt Sel 

CLRBF 011144 - 1008 14380 44dlH OS; “a 

CLRCSR 010650 | 540 654 9745 & 868 1007 1137 13474 ‘ - 
CLRIRR 010730 543 657 758 879 1013 1143 13634 - ’ 
CR = 000015 — . 354 1812 1822 

CRLF = 000200 _ 364 836: 1783 1822 | 

CSIMR = 000050' . ‘ 1464 ,. 542 656 749 872 

‘SIRMR= 000030 1434 . 

CSIRR = 000110 , 

CSISR = 000170 1574 75 . 
DBUF 16712 116421 1432 25194 

DDISP = 177570 ' | Lm 1 

DH1 016354. 332 368 4704 | . 

DH2 016421. 338 0 (344 50 356 ° 362 374 386 392 2477h 

DH3 016506 380 24864 . e - 

DH4 016553 ) 1398 2493e 

DIR ‘= 000400 | 1384 : 

DISPLA 002142 ss 25TH 464 472% = 2041" = 2185s 

DISPRE 000174 “80H 472 


f a 
0024 34 419@ 5108 511". 5146-1295" =: 1299 
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CVDRDA.P11 =. 21=OCT+79 13:19 CROSS REFERENCE TABLF == USER/SYMBOLS ‘ : 
DRCSA 002412, 406M 513" 517 535 537, 649 651 740 742 863 865 1017 1147, 
, er 1293 «1351: 1364 —Ss«1:37 5, 
ORCSB 002416 4084 536 650. 741 864 1019 1149 1377 
DRCSC 1002422 ' 4108 639 729 853 - 992 1018 1148 1394 
CSD ‘002426. 412 640 730 = 854 «+994 1020. 1150 1395 
DRDBA 002414 4O7# | 3 
DRDBB 002420 409 . “ ee 
PBC 002424 ' 41a: 
DRDBD' 002430 : 41346 520 _% , 
D = 177570 418% 250 463 
DT1 016624 333 369  2502h . ‘ 
DT2 016640 ' 339 45 351 - 357 - 363) ~23~=— 375 387, («6 «393 504m 
DT3 016660. °* 381  2507% : ) ‘ 
016674 ‘399 2509 
HEDCHP3 012664 633 723 ~=—««17384 , 7 
TVEC= 000030 1304 448% 449s . 4 ‘ 
1 016034 33124314 ; , 
EMI =: 016201 373. 24508 
EM11 016216 379 245 3a - “, ; 
Mi2 =: 016251 , 385 4584 ‘ 
EM]3 =: 016276 * 391 24624 ; ‘ “ 
EM14, 016333 367 24674 . 
16050 337 434K < 
EM3 016072 343 437K. 
7 016105 9 2439H . 
EM 016120 ~ + 355 4414 
M6 016133 . . 361 » 26434 Sf - 4%, 
, EM? 016146 O,' 397 45a ‘ 
ENDBUF 017316 < 25 26H . ‘ 
ENDIRP 011446 at : 1677 « 1686 .*14908 rs, 
END200 '011716 ? ,1551_ " 1557# ” F , , 
ERRVEC= 123 461 462% 473% © 2146 2747" = 2149% =. 2152 i; 
, + { FRMBUF 011204 1204 , H2° 936. 944 ~ 952 960 969 973 998 14298 - 1516 1570 
' ‘ ; ‘ oe 
JGNS = ‘wane! Y 179 2607 2608 «= 2409 2610) = 2411-2413) 2415 2616 17 
GRPCNT (002462 430H# 539% 637% 653% 727% 743% 851% 866% 490s | : 
. ‘1GTSWR = 104406 508 24134 ae | ; 
, HT ~ = 000011 ' “339 1781 £1822~~= « se ae? 
IE = 001000 1139M = ° ' pe 
IMRLOC 002442 2H 542% “552 635% 656% 671 725% 749%. 776 > 838% 872* — 899 978 
INTBYS « '09 1,510 | 766 15054 — : ! o 
INTFLG 002436 , 420H# 546% 559 562* 565 = 568% 572 660* = 675 678* 681. 684* — -691 
; ' ' 768* 779 782* 785 788* 793 890x 902 “'907* 910 9139 920 1025s 
es eo fae 10380' 6 1033" = §=1047 = 1044* 1048 1155* 1160 11638 “1170 1173" . 117 1188*, 1197 
, -o#y, 1695" 1497 1505* 1507 1565" 1567 1586* 1587 wi P 
INTSR1 011454 44 658  1495# : ; a =~ 
J}INTSR3 011734 ! 8 15654 . oF - 
INTO = 012044 1401 1596 3 See . - a = 
_ | INTI 012052 i 15 4 bb? _ 
“~|INT10 012140 16144 wf < . | 
INT11 012146 1616 , mo 
INT12 ' 012154 161BM 
INT13. 012162. 16204 . : 
INTI4 012170. | | 16224 - 
INT15 ‘012176 16268 : 
INTI6 012204 \! 1626# 
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= 
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AINTT7) =©012212_—. 16284 
INTI8 012220, . 16304 
INT19» 012226 16324 
INT2 012060 15984 
INT 2234 16344 
INT21 012242. 16364 
012250 16384 
INT23 012256 16404 
INT24 12264: 6424 
INTCS 012272 16444 
INT26 12 6464 
INT27 012 1 
INT28 = 012314. 16508 
INT29 012322 16524 
INT3 012066 16004 
INT3O° ‘012330 16544 
1 12336. 16564 . 
INT32 012344, 16584 
NJ 33 12352. ' 16604 
INT 12360 16624 
INT3© § 012366 16644 
INT36 0012374 si, 16664 
INI'37 012402 «5 1 
INT38 012410 16704 
INT39: 012416 16724 
INT4 - 072074 16024 
INT4O 012424 1674# 
NT41 012482 16764 
T42 012440 16784 
INT43 =. 012446, ‘ 16804 
INT44 012454 16824 
INT4S 012462 16844 
INT46 012470 6864 
INIS47 012476 16884 i 
INT4B . 012504 , 6 
INT49 092512, 16924 
INTS 012102 16044 ' 
INTSO 012520 16944 
INTS1 012526 964 
INTS2 012534 16984 , 
INTS3 042542.,, 17004 
INT54 12550 ‘1702H 
INTSS' 012556, 17044 
INTS6 012564 7 
INT57 012572 17084 / 
INTS8 O12 17104 
INTS9 O12 1712m p 
INT6 012110 16 é‘ 
INT60 012614 17044 
INT61 012622 17164 
NT 012630 17184 ' 
INT63 012636 , 17204 
INT? 012116 16084 
INT8 = 012124 16104 
INT9 ~=—-_:« 012132 16124 
IOTVEC= 000020 ' 1284 446» 447 


N. 5 
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‘TIRRLOC 002446 4244 750% , 783 839x ' 873« 908 979 
TISRLOC 002444 423H = 751% B27. BGO 
ALF = = 000012 .' 348 1816 1822 | 
WL = 0002 159" 
/1LMD57_= 000240 1604, ' : 
LVLCNT 002466 432# 3» 768% 842% 8718' 981% 1381% 1388 
/)LVLSAV 002474 . 635% 1152% , 1184* 1187* 1198s 
CR = 000254 1 , 606 7 821 956 108 1110 £1233 #1255 
MIMR = 000244 1 1644 =| 594 705 809 940 1075 1099 1223 1264 
MIRR = 000250 1654, * 600 711 815 + 948 1080 1105 1228 1250 
MISR = 000240 | 1634) 588 613' +699 803 828 932 965 1070 1096 1218 1239 
NEXPAS 00313 615. §517#' 1307 
,|NEXPA1 0031 5iBeOfi*SS 
NEXPA2 003202 526 52 , ; 
' NXDEV. 01 12934 
NXDEV1 010472 $16 12964 1300 
ACR = 169% 665 1022 1034 
’ ‘IPIMR = 260 1704 ! 
; PIRQ = 177772 40m 
, PIRQVE= 000240 » 134 | 
PRO = ‘S7H#' 554% 569% 673% 685" 777% 789% 900% 916% 1026"  1037* 1045* 1156% 
| 1166* = =1174" =—-1189s 
PRI = 0 584 
PR2 = 000100 59M 
-IPR3 - = 000140 « 60%: 
: PRG = 000200; , ‘ j 61 
PRS = 000240 ‘624 4? 
JPR6 , = 000300 634 Pie? 
PR7° = 000340 644 528x 564% 576 680% 695% 784% 798% 909% 927% 1040* 1049 1169s 
4 1178* 1192e 1348 
PS = 177776 38 
PSw = 177776 384 ; 
PVMA = 000340 1714 548 667 746 869 1349 
PWRMSG 015624 2363 439. 23704 
PWRVEC= 000024 129 652% 653% 4/2332" 2333" 2342" 2348% 2360" 2361* 
RDCHR = 104410 230224164 wee 
RDLIN = 104411 2417# 
RDY = 100000 1374 
RESTRP 011242 833 «14424 
RESVEC= 000010 1244 ae j 
RES200 011572 972 15284 abl fan, 
SETVEC 012020 15844 1594 1596 1598 1600 1602 1606" 1608 ~ 1610 1612°+ 1614 4, 1616 
1618 1620 1622 1624 1626 1628 1630 /° 1632 1634 1636° 1638 + 1640° 1642 
1644 1646 1648 1650 1652 41654 #£«21656’°' 1658 1660 1662 1664 1666 #1668 
1670 1672 ° 1674 1676 £1678 1680 1682 1684 1686 1688 ##=169%9 1692 1694 
1696 1698 1700 1702: #1706 + #+1706 ‘1708 #1710 #4«©+1712 #«2©91716 #4291716 #41718 1720 
SIMR = 147#@ = 5551 670 775 89 
SIRR = 000120 1S52H 563 679 1027 +1038’. ,1157 1167,—S—s«*1183—s:*1197 : 
SSIMR = 000070 1484 
SSIRR = 000130 1534 750 873 
STACK = 0011 284 
START 002476 183 4374 
START1 003066 507 509H 1336 2365 
STKLMT= 177774 39" 
STRVEC 011110 1010 1140 1400# 
SWR 002140 2504 442 463* 465 471% 478% 1436% 1464 1469 1543 2046 2058 2062 
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| 2141 2155 2157 2163 2170 2199 2236* 2340 2353* “. 

SWRCK 014244 2048 20744 

SWREG 000176 1814 471 2199 2212 

SWRSAV 002460 429% 1636 1543* 

SWO = 000001 92a 

SWOO = 000001 Boe 92 

SwO1 = 000002 814 91 

SWO2 = 000004 804 

SswO3 = 000010 794 89 

SWO4 = 00002 784 88 

SwoSsS = 0 77 87 ‘ 

SWO6 = 000100 764 86 

SWO7 = 000200 754 85 

Swos = 00 744 84 

SWwO9 = 001000 734 83 

SW = 2 914 

SW10 = 002000 724 

SW11 = 004000 714 

SWi2 = 010000 70H 1444 1469 

SW13 = 020000 694 

SW14 = 040000 684 

Sw15 = 100000 674 

SW2 = 000004 904 

SW3 = 000010 894 

SW4 == 000020 884 

SW5 = 000040 874 

SW6 = 000100 864 

SW7 == 000200 854 

Sw8 0s = 00 844 

SwW9 = 001000 834 

TBI TVE= 14 1254 

TITLED 015736 502 24204 

TKVEC = 1324 

TLCABL O01 503 24264 

T 011164 497 14204 

TPVEC = 1334 

T = 1314 450* 451* 

TRPALL 011562 1451 1473 15234 

TRPCAT 011334 522 752 1009 1139 14644 

TRPOUT 017544 1453 1486 15154 1533 1553 

TRP200 012 1530 1547 15774 

TRTIVEC= 14 1264 

TSTNUM = WWV2432 4184 2074* 2502 2504 2507 2509 

TST1 Ou_2 5344 

TST2 004054 638 6484 

TST3 004554 728 7394 

TST4 005452 852 8624 

TST5 44 10044 

TST6 007362 11344 

TYPDS = 104405 1325 24114 

TYPE = 104401 502 503 1323 1326 1786 1939 2014 2049 2086 2103 2105 2108 2110 

2114 2121 2210 2211 2214 2227 2238 2257 2306 2309 2313 2 362 24074 
TYPOC = 104402 2094 2118 2215 24084 
TYPON = 104404 24104 


TYPOS 03 
VBUF 017116 1014 1117 1144 1277 1411 25254 
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010766 
002452 


002454 
002456 
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1145 
7 


MACY11 30A(1052) 


13764 


21-0CT-79 


834 
765* 


841s 
2507 


2049 


875* 


77) 
847 
2509 


2070 


883 


885* 
R69* 


455 


2086 
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974 


886* 
893 


2105 


1350* 


887* 
98C* 


2110 


1446% 


894 
986 


2114 


1834 


1447 


1379* 
1012* 


2238 


1858 


1449* 


1384 
1142 


2322 


2051 


PAGE: 0067 | 


1456* 


1385* 
1349* 


1264* 
1567* 


1536* 


1380* 


CVDRDA DRV11J DIAG TST PRI2 
CVDRDA.P11 


002124 


21-0CT=79 13:19 


MACY11? 30A(1052) 


»» 
. 


20854 
2042* 
455* 


ababattalt 
ZAIN — CO OO NO VIv1I00 YOO 
BR is us -2 are oe 
\NOO\.WIWW- — VI 0 
» » “ = 2 * s 


2704 


1867* 
s] 84 5 
1840 


21-OCT-79 


2067 


475 


18714 


1848s 


8594 
1918s 


2070 


1766 


1860 


10014 
1929 


2183* ° 


2188 
874% 


2051 


1864* 


11314 
1955@ 
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587* 590 593* 
629 690* 692 
801* 802* 805 
930* 931* 934 
1053* 057 1060* 
1107 1111* 1113 
1212 1217* 1220 
1273 1278* 1281 
. ‘ 4: 
“dg 


2180 
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CVDRDA.P11 21=0CT=79 13:19 CROSS REFERENCE TASLE == USER SYMBOLS 
SOVER 014660 2142 2158 2166 2176 21854 
SPASS 002176 o74a 475* 1315" 1316 1324 1337 2172 2189 
SPASTM 002006 2204 
SPWRAD 015612 235654 
SPWRDN 015452 452 23324 2360 
SPWRMG 015606 23634 
SPWRUP 015524 2342 23484 
“MES 002164 2624 §=—1822 2070 2257 2 306 2322 
CHR 015160 2270H 2416 
= eeeeee 2418 
SRDLIN 015300 C298# 2417 
= werent 2418 
SRDSZ = 000010 22914 
SRTNAD 010626 13 
SR2A = eeeeee 2418 
SSAVRE= seae2n8 2418 as 
SSAVR6 015622 2341* 2349 2350" 2351% 23694 
SSCOPE 014416 446 21394 
SSETUP= 000117 4 445 446 448 450 452 454 455 457 1313 2037 2061 2069 
2140 2194 2328 
$STUP = 177777 4364 
SSVLAD 014624 2150 21798 
$SVPC = 000106 1914 196 
$SWR = 165400 11 128 138 19 20 21 22 23 24 260 261 262 454 
455 457 458 $35 649 740 863 1005 1135 1308 1314 1329 1355 
1337 2029 2030 2031 2032 2042 2046 2058 2062 2070 2131 2132 2133 
2134 2135 2141 2153 2155 2156 2159 2160 2161 2168 2169 2170 2182 
2185 2188 2 366 
SSWREG 002212 2824 478 
= 24 25 2135 2136 2157 
STESTIN 002174 2734 482* 2180* 
STIMES 002160 2604 454* 1314* 2168* 2175 2178* 2188 
$TKB 002146 2538 82192 2203 2220 2274 2280 
$STKS 002144 252H# = =—2192 2201 2217 2241%* 2272 2278 
SIN = 114 144 $31 5354 638 645 6494 728 736 7404 852 859 86 354 
1001 1005 »=1131s«1135a ‘ 
STPB 002152 2554 1811* 1822 
STPFLG 002157 2594 1760 1822 , | 
TPS 002150 2544 #81809 1822 
STRAP 015656 450 23844 . Add 
$TRAP2 015700 23954 2406 ; 
$TRP = 12 2399" 264084 2409% 2610H 2611 2612 2613 2414 2615 2616 2417 24188 
STRPAD 015712 2389 24064 
STSTM 2194 
STSTNM 002192 2324 1313* 2041 2070 2074 2130 2157 2179" 2180 2185 2189 
STTYIN 015406 2299 2300 2317 23214 é 
STYPBN= stee08 2412 . 
STYPDS 013644 1 2411 
STYPE 12666 17604 £1853 2399 2407 
STYPEC 013100 1790 1797 1804 18094 1810 2243 
STYPEX 013146 1815 1817 18204 
STYPOC 013442 19094 2408 
STYPON 0'3456 1908 19114 26410 
STYPOS 013416 19044 2409 t 
SUNIT 002202 276a 509* 524 1298 ’ 
SUNITM 002010 2214 


, o 
s Bb? ‘ , . 
_ ¢  |CVDRDA DRV11J. DIAG TST PRTC 
TCVDRDALPTT © 21-0CT=79 13:1 
SUSWR 0022146 mops 
ve |SVECT1,° 002260 " =~ 308 
93 SVECT2. 002242 ~ "+ 2 5309" 
Peat Bae = S" ss. 
-° a sgihea goes os 5 1905«,' 
, + [S60CAT= egeeee VU 2048 
9 - »g Te ” £ 017316 > 17584 
’ ry ae 265 
- o . - 27192 
_ vt of SASTAS teeeee || 1826 
SK -= 002000 - x 2 
m ies > 
f <_s _ 
. ~ 
4 
’ 
’ a 
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‘C4 me cs Sf 7 
s . * 7 : 
. 7 sf 7 ; - 
ae e - 
: > P , So 4g a 
1909s 1919 * 1954a Py . 
2161 , -° | ; 
179M 1B = 7191_° 1928 1948 196% 
443 ., “5 7% "658 1337 1347 + 41822 
e321"  2322n: .. 2438 234% 2*%68 oth 
211 i a - ; : - 
+,° 
Fe 
“3 ™~ 
—~ i r _ 
> “ 


1974 
18748 
25258 


207# 
2070 


2098 
21248 


cilia 
2188 


2298 
2189 











1001 31 
SSSET 2399% 2408 2409 2410 2411 2413 2415 2416 2417 
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CYDRDA.P11 21=0CT=79 12:19 CROSS REFERENCE TABLE =~ MACRO NAMES 
eae 1a °° «13S@ sae SP” Fo 
ENDCOM la 1354 ' | 7 lt Pa g* ‘ : 
RROR 298 56) 567 575, ., 583,// $92 .598 604 610 617 624 631 677 683 694 
| 703 709 715 7217 781,.'/, 787 + 2797 =. 807 813 819 825 832 905 913 925 
937 945 953 9617 | .970/"' 1032 * 1043 ° 1052 1059 1066 1074 1079 1084 1090. 1098 
», TOS 1109 1415 1129/4 1162 #7 1772" 1181 1195, 1207 1214 1222 1227 1232 1237 1243 
P ~* 1268, 1256, 1259 1268 7% 127 1283" 1500 1810 1517 1526 1571 1579 1589 | 
ESCAPE, le 1354 t. yf , 
GETPR] le 135@ pe Shh ; 
‘IGE TSwWR le 1354 | ee 
MULT 1a =». 1358 ’ (},« 
NEWTST * le 135@." $31,” 645! 11. 736° =~=—859*~ 1001 1131 
POP la 1358 §«1868! 1869" § 2009 2353 354 
PUSH 1 ©1354, 1829 ‘ 1831’, 1852, 1968 2334 2340 
REPORT» lf t 1354 ay . wl wf # y 7, , 
SCOPE , 10) Lh 648 / ‘739 . B62 1004 1134 
SETPRI Pj 1354 aa al | 
SETTRA 2399 2608 {| 24609 2610 4 2411 26413 2415 24146 2417 
SE TUP lf 1354’ 437’ |. 
SKIP le 135@ ,- 638 «' 728 852 
SLASH la 1358 , | i J 
SPACE 135@ ! ' s | 
STARS ls 1354 189 203 205 212 225 265 268 531 533 645 647 736 738 
859 * 861 1001 1003 1131 1133 1305 1344 1346 1745 1824 1881 1958 2025 2070 
2073 2080 , 2127'° 2191 2194 2262 2291 2330 2346 2378 2514 2518 2521 2524 
SWRSU 1 1354 4594 
TRMTRP 2399# / 
TYPBIN lf 1354 
TYRDEC la 1354 81324 
TYPNAM le 1354 
TYPNUM a 1354 
TYPOCS if 1354 #/ 
TYPOCT lf 1354 2092 2116 2212 
“1 TYPTXT if 1354 | 
$C MRE 2234 ; 
SSCMIM 2234 
SSESCA lf 1354 
SSNEWT if 1354 531 645 736 859 17 
$$SKIP 1s 1354 638 728 852 

.EQUAT la 25 | 

HE ADE le 

KT11 le 

. SETUP 1a 436 

SWRH | le 15 

. SWRLO 258 

SACT1 / / la 187 

.SAPTB le 

.$SAPTH lat 201 

SAPTY le 1822 

.SASTA le 

.SCATC i if 173 

_SCMTA le 223 

. SDB2D la 
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CVDRDA.P11 21-00 T=79 13:19 CROSS REFERENCE TABLE == MACRO NAMES 
-SDIV la 

. SEOP la 1303 
. SERKO 1% 2023 
.SERRT 1% 2078 
. SMULT \@ 

. SPOwE 1# 862328 
. BRAND FF 

. SRDDE if 

$RDOC lf 

. SREAD 18 2189 
. BR2AZ lf 

. SSAVE la 

.$SB2D rj 

.$SB20 la 

.$SCOP lf 2125 
.SSIZE lf” 

. SSUPR Tj 

STRAP 1# 2376 
$TYPB lf 

.STYPD 1” 1956 
$TYPE la 1743 
.STYPO la 1879 
.$400A la 

1170 lf 


. ABS. 017516 00U 


ERRORS DETECTED: 0 
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RUN-TIME RATIO: 145/86=1.6 
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